ПОМОГИТЕ ПАСКАЛЬ!! НУЖНА ПОМОЩЬ, ВСЁ ОЧЕНЬ ПЛОХО!!
Переставить местами первую и последнюю строки в матрице.

const  m=6;  n=8;var  a:array[1..m,1..n] of integer;  i,j,r:integer;begin  Randomize;  Writeln('Исходный массив');  for i := 1 to m do  begin    for j := 1 to n do    begin      a[i,j]:=Random(100);      Write(a[i,j]:3)    end;    Writeln  end;  for j:=1 to n do  begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;  Writeln('Результирующий массив');  for i := 1 to m do  begin    for j := 1 to n do Write(a[i,j]:3);    Writeln  endend.Тестовое решение:Исходный массив  6 93 10  3 80  4 47 71 33 33 75 85 93 22 53 16 83 30 39 95 35 53 30 83 29 43 83 54 88 83 49 67 24 67 47 97 82 40 67 35 42 26 67 23 28  8  8 45Результирующий массив 42 26 67 23 28  8  8 45 33 33 75 85 93 22 53 16 83 30 39 95 35 53 30 83 29 43 83 54 88 83 49 67 24 67 47 97 82 40 67 35  6 93 10  3 80  4 47 71