Нужна , всё переставить местами первую и последнюю строки в матрице.

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   end end. тестовое решение: исходный массив   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

Если элементы массива идут по возрастанию, то вот так program wstawka; uses crt; const min=1; max=20; type zona=min..max; massiw=array[zona] of integer; var mas: massiw; i,j: zona; a,n,m: integer; t: boolean; begin randomize; clrscr; n: =random(20); writeln('4ucjlo n = ',n);   m: =random(20); writeln('4ucjlo m = ',m); for i: =min to max-2 dobeginmas[i+1]: =mas[i]+random(5); write(mas[i],' '); end; for i: =min to max-2 doif (mas[i]> n) and (t=false) thenbegint: =true; a: =mas[i]; mas[i]: =n; for j: =i+1 to max dobeginn: =mas[j]; mas[j]: =a; a: =n; end; end; for i: =min to max-1 doif (mas[i]> m) and (t=true) thenbegin t: =false; a: =mas[i]; mas[i]: =m; for j: =i+1 to max dobeginm: =mas[j]; mas[j]: =a; a: =m; end; end; writeln; for i: =min to max do write(mas[i],' '); readkey; end.