7. Написать программу на pascal, которая обменивает первую и третью строку массива.

Const
m = 5;
n = 8;

var
a: array[1..m, 1..n] of integer;
i, j, t: integer;

begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
end;
for j:=1 to n do begin t:=a[1,j]; a[1,j]:=a[3,j]; a[3,j]:=t end;
Writeln('Полученный массив');
for i := 1 to m do
begin
    for j := 1 to n do Write(a[i,j]:4);
    Writeln
end
end.

Тестовое решение:
Исходный массив
45 20 -15 33 -37 26 -30 -3
-27 43 -24   4 -14 18 -50   5
-28 -47 11 27 -8 42 -19 -39
16 43 -18   0 -32 25 11 22
27 -37 -44 -38 -50   7 -45 -30
Полученный массив
-28 -47 11 27 -8 42 -19 -39
-27 43 -24   4 -14 18 -50   5
45 20 -15 33 -37 26 -30 -3
16 43 -18   0 -32 25 11 22
27 -37 -44 -38 -50   7 -45 -30

7. Написать программу ** pascal, которая обменивает первую и третью строку массива.