Дана матрица А(3,3), найти количество положительных элементов матрицы, сформировать новую матрицу Х(3,4), элементы которой получены из элемнтов А путём деления их на найденное количество. Матрицы А и Х вывести по строкам

Целая программа на паскале:  const      a: array [1..4, 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      writeln('matrix:');      for i := 1 to 4 do begin          for j := 1 to 4 do write(a[i,j]:4);          writeln;      end;      writeln;      writeln('main diagonal sum: ', a[1,1] + a[2,2] + a[3,3] + a[4,4]);  end.