Var f1,f2:text;
a:array[6..8] of integer;
i,j,p:integer;
begin
assign(f1,'input.txt');
reset(f1);
for i:= 1 to 6 do
for j:= 1 to 8 do
read(f1,a[i]);
close(f1);
assign(f2,'output.txt');
rewrite(f2);
while j<=3 do
begin
p:=a[i,j];
a[i,j]:=a[9-j,j];
a[9-j,j]:=p;
end;
begin
for j:=1 to 8 do
write(a[i,j],' ');
writeln(f2);
end;
close(f2);
end.

p:=a[i,j]; Неверное количество индексов. Должно быть 1
в чемм ошибк