Это программа записывает в файл 10 цифр
потом забирает первую и послед и ищет разницу)
вот другой вариант
program s1;
uses crt;
var
t:text;
i:integer;
b,c,a,s:real;
begin
clrscr;
assign(t,'t.txt'); rewrite(t);
for i:=1 to 10 do begin
read(a);
writeln(t,a:2:2);
end; close(t);
assign(t,'t.txt'); reset(t);
readln(t,b);
while not EOF(t) do begin
readln(t,c);
end;
close(t);
s:=b-c;
writeln(s:2:2);
end.