с клавиатуры заполняется массив 10 на 10 поменять 1 и 10 строчку местами( в по скале с пояснениями, действительно до 15 05)

const     N = 10; M = 10;

var    arr: array[1..N,1..M] of byte;   
i,j,a,b,buff: byte;

begin   
for i:=1 to N do begin       
for j:=1 to M do begin           
read(arr[i,j]);       
end;   
end;

 for j:=1 to M do begin       
buff := arr[1,j];       
arr[1,j] := arr[10,j];       
arr[10,j] := buff;   
end;   

writeln('==============');   

for i:=1 to N do begin       
for j:=1 to M do           
write(arr[i,j]:3);       
writeln;   
end;
end.