Найти сумму и количество элементов в каждом столбце матрицы, являющихся простыми числами

....

const
  n = 5;
 
type
  matr = array[1..n, 1..n] of integer;
  summ = array[1..n] of integer;
 
 
procedure zapolnenie(var mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      mas[i, j] := random(9) + 10;
end;
 
procedure vivod(const mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      Write(mas[i, j]:4);
    Writeln;
  end;
end;
 
procedure sum(const mas: matr; var summa, kol: summ);
var
  i, j, k, pr: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      pr := 0;
      for k := 1 to 9 do
        if (mas[j, i] mod k = 0) then
          inc(pr);
      
      if(pr = 1) then
      begin
        summa[i] := summa[i] + mas[j, i];
        inc(kol[i]);
      end;
      
    end;
  end;
end;
 
procedure vivod2(const a: summ);
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i]:4);
  Writeln;
end;
 
var
  mas: matr;
  summa, kol: summ;
 
begin
  zapolnenie(mas);
  vivod(mas);
  Writeln;
  sum(mas, summa, kol);
  vivod2(summa);
  vivod2(kol);
end.