Дана прямоугольная матрица поменять первую строку с последней (без использования процедур и функций) — Pascal(Паскаль)

program kalk;
uses crt;
const
 n = 8;
 m = 10;
var
 a:array[1..n,1..m] of integer;
 i,i2,tmp:integer;
begin
 for i:= 1 to n do
 for i2:= 1 to m do
 a[i,i2]:= random(20);
 for i:= 1 to n do begin
   writeln;
   for i2:= 1 to m do
   write(a[i,i2]:3);
 end;
 writeln;
 writeln;
 for i:= 1 to m do begin
   tmp:= a[1,i];
   a[1,i]:= a[n,i];
   a[n,i]:= tmp;
 end;
 for i:= 1 to n do begin
   writeln;
   for i2:= 1 to m do
   write(a[i,i2]:3);
 end;
end.