Вмассиве r (5x5) поменяйте местами первую и последнюю строки.

Program pr;
uses crt;

Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;

Begin

N:=5;
   Writeln('Введите элементы матрицы'); 
      for i:=1 to N do     
        for j:=1 to N do     
            readln(mas[i,j]);              

Writeln();   
Writeln('Исходная матрица');   
  for i:=1 to N do   
     Begin   
        for j:=1 to N do     
                 Write(mas[i,j], ' ');           
       Writeln();   
     end;      

{Объмен}   
 
  for j:=1 to N do     
      Begin       
        buf:=mas[N,j];       
        mas[N,j]:=mas[1,j];       
        mas[1,j]:=buf     
      end;               

Writeln();   
Writeln('Результирующая матрица');   

for i:=1 to N do   
   Begin     
       for j:=1 to N do     
           Write(mas[i,j], ' ');          
       Writeln();   
    end;    
 
readln;
end.