Ошибок море. Файл не найден. Непонятный спецификатор. на eof(f,a) ругается что скобки нехватае...
Помогите исправьте мою ошибку
uses crt;
const n=5;
var
g,h,f,Name3,Name2,Name1 : file of integer;
i,b,a : integer;
begin
clrscr;
assign(g,'Name1.txt'); assign(h,'Name2.txt'); assign(f,'Name3.txt');
rewrite(g);
for i:=1 to n do
a[i]:=n-i;
begin
write('a='); readln(a);
write(g,a);
end;
close(g);
reset(g); rewrite(f);
while not eof(g) do
begin
read(g,a);
write(f,a)
end;
close(g);
reset(h);
while not eof(h) do
begin
read(h,b);
write(f,b);
end;
close(h);
reset(f);
while not eof(f,a) do
begin
read(f,a);
write(a);
end;
close(f);
end.