вот кажется пашет
program farit;
var f,g,p:file of real; i,n,k,m:integer; a,b,q,w:array[1..100] of real; c,s,z:real;
begin
randomize; n:=10; writeln;
write('Числа файла Ф1 ');
assign(f,'f1.txt');
rewrite(f);
for i:=1 to n do
begin
a[i]:=random(50);
write(f,a[i]);
write(a[i],' ');
end;
close(f); writeln;
write('Числа файла Ф2 ');
assign(g,'f2.txt');
rewrite(g);
for i:=1 to n do
begin
b[i]:=random(50);
write(g,b[i]);
write(b[i],' ');
end;
close(g); read;
reset(f); reset(g);
i:=1; m:=1;
for k:=1 to n do
begin
read(f,c); read(g,s); z:=(c+s)/2; w[m]:=z; m:=m+1;
end;
close(f); close(g); writeln;
write('Числа файла Ф3 ');
assign(p,'p.txt');
rewrite(p);
for i:=1 to n do
begin
write(p,w[i]);
write(w[i],' ');
end;
close(p);
end.
http://rapid.ufanet.ru/9251978 паскаль PABC PascalABC.exe запускает среду в папке прога program1.pas твоя прога