Решить задачу в паскаль абс "дан двумерный массив,состоящий из 2 строк и 3 столбцов..необходимо пересортировать массив таким образом,чтобы нижняя строка(2) заняла место верхней(1),а верхняя(1) заняла место нижней(2).как можно проще пожалуйста

program a1;var a:array [1..2,1..3] of integer;k: integer;i,j: integer;begin{Вводим в массив числа}for j:=1 to 3 dofor i:=1 to 2 doread(a[i,j]);      {Чтобы не писать 2 раза то, что ниже в цикле}for i:=1 to 2 dobegink:=a[i,1];a[i,1]:=a[i,3];a[i,3]:=k;end;{Пустая строка, чтобы разделить ввод и вывод}writeln;{Вывод информации на экран}for j:=1 to 3 do beginfor i:=1 to 2 dowrite(a[i,j],' ');writeln;end;end.