Дан двумерный массив b[4,4] из целых чисел в интервале от -20 до 50. 1.распечатать. 2. переставить 2 и 3 строки. 3. подсчитать в каждой строке количество положительных элементов 4.найти сумму в 3 столбце.

Program abc;
const arr: array [1..4] of array [1..4] of integer = ((1,2,3,4),(5,6,7,8),(9,10,11,12),(13,14,15,16));
var i, j: integer;
begin

for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    write(arr[i][j], ' ');
  end;
  writeln();
end;
writeln();

for i := 1 to 4 do
begin
  j := arr[2][i];
  arr[2][i] := arr[3][i];
  arr[3][i] := j;
  end;
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    write(arr[i][j], ' ');
  end;
writeln();
end;

end.