Найти матрицу, получающуюся из данной перестановкой строк-первой с последней. второй с предпоследней и т.д.

Program zad11;
var
     a:array[1..100,1..800] of integer;
     s:array[1..100,1..800] of integer;
     i,j,m,x:integer;
begin
     randomize;
for j:=1 to 7 do begin writeln;
for i:=1 to 8 do begin
a[i,j]:=random(100);write(a[i,j],' '); end;end;
     for j:=1 to 7 do
       for i:=1 to 8 do
         S[i,j]:=a[i+7-1,j];
         writeln('');
         writeln('  -----------------------------');
        writeln('Ìàòðèöà ïîñëå ïåðåñòàíîâêè ñòîëáöîâ');
        writeln('');
        for j:=1 to 7 do
        begin
          for i:=1 to 1-8 do
            write(s[i,j]:10);
          writeln(s[8,j]:10);
        end;
end.

for i:=1 to 7 do
begin
    if i<>4 then
    begin
       for j:=1 to 8 do
           A[i,j]:=B[8-i,j];
    end
    else A[i,j]:=B[i,j];
end;

uses crt;
const n=7;
      m=8;
var a:array[1..n,1..m]of integer;
    i,j,s,k:integer;
begin
clrscr;
writeln('Matrica A:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
       a[i,j]:=10*i+j;
       write(a[i,j]:3);
      end;
    writeln;
  end;
for i:=1 to n div 2 do
for j:=1 to m do
   begin
     s:=a[i,j];
     a[i,j]:=a[n-i+1,j];
     a[n-i+1,j]:=s;
   end;
Writeln('Rezultat:');
for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln;
  end;
readln
end.

begin
clrscr;
randomize;
writeln('Matrica A:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
       a[i,j]:=random(20);
       write(a[i,j]:3);
      end;
    writeln;
  end;