Вот вариант...
Program FAIL14;
const n=20;
var f:text;
a:array[1..n] of real;
i:integer;
begin
assign(f,'a:\numbers.txt');
rewrite(f);
begin
writeln(n);
for i:=1 to n do begin
writeln('vvedite elementy:');
readln(a[i]);
Procedure Raznost(a,b:real;var K:real);
begin
for i:=1 to n do
K:=a[1]-a[i];
end;
writeln(K[i]);
readln(K[i]);
end.
помогите пож-та....