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

Vara:array[1..2,1..3] of integer;i,t,j:integer;beginwriteln(\'До:\');for i:=1 to 2 dobeginfor j:=1 to 3 dobegina[i,j]:=random(10);write(a[i,j],\' \');end;writeln;end;for j:=1 to 3 dobegint:=a[1,j];a[1,j]:=a[2,j];a[2,j]:=t;end;writeln(\'После:\');for i:=1 to 2 dobeginfor j:=1 to 3 dowrite(a[i,j],\' \');writeln;end;end.Введение чисел в массиве:for i:=1 to 2 dobeginfor j:=1 to 3 dobegina[i,j]:=random(10);write(a[i,j],\' \');end;writeln;for i:=1 to 2 dobeginfor j:=1 to 3 dobeginread(a[i,j])end;end.