Вдвумерном массиве a(n ,n) все элементы первой строки заменить элементами последней строки. n=3. массив заполняется с клавиатуры.

Const n=3;
var a:array[1..n,1..n] of integer;
i,j,tmp:integer;
begin
for i:=1 to 3 do
  for j:=1 to 3 do
  read(a[i,j]);
for j:=1 to 3 do
a[1,j]:=a[3,j];
for i:=1 to 3 do begin
  for j:=1 to 3 do
  write(a[i,j]:3);
writeln;
end;
end.