Поменять местами первую и последнюю строки матрицы

Program xxx;
uses
  crt;
const
  n=4;
var
  a: array [1..n,1..n] of integer;
  i,j,s,t,max: integer;
begin
  clrscr;
  writeln('Ishodnaya matrica');
  Randomize;
  for i:= 1 to n do
  begin
    for j:= 1 to n do
    begin
      a[i,j]:=random(10);
      write(a[i,j],' ');
    end;
    writeln;
  end;
  for i:= 1 to n do        {Переставляем строки}
  begin
     t:=a[1,i];
     a[1,i]:=a[n,i];
     a[n,i]:=t;
  end;
  writeln;
  writeln('Preobrazowannaya matrica');
  for i:= 1 to n do
  begin
    for j:= 1 to n do
      write(a[i,j],' ');
    writeln;
  end;
  writeln;
  s:=0;
  for i:= 1 to n do          {Находим s}
  begin
    for j:= 1 to n do
      s:=5+(1-a[i,j]+a[i,j]*a[i,j]) div 6;
    writeln('s','[',i,']=',s);
  end;
  writeln;
  max:=a[1,1];          {Находим максимальный элемент}
  for i:= 1 to n do
    for j:= 1 to n do
      if a[i,j]>max then
        max:=a[i,j];
  write('Max element = ',max);
  readkey;
end.