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

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,m,n,s,k:integer;
function isSimple(a:integer):boolean;
var
  i:integer;
begin
  isSimple:=false;
  if a<2 then
    exit;
  if (a mod 2=0) and (a<>2) then
    exit;
  i:=3;
  while i<=a div 2 do
    begin
      if a mod i=0 then
        exit;
      i:=i+2;
    end;
  isSimple:=true;
end;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:5);
        end;
      writeln;
    end;
  writeln;
  for j:=1 to m do
    begin
      k:=0;
      s:=0;
      for i:=1 to n do
        if isSimple(a[i,j]) then
          begin
            k:=k+1;
            s:=s+a[i,j];
          end;
      if k<>0 then
        writeln('V ',j,' stolbtse ',k,' pr. S=',s)
      else
        writeln('V ',j,' stolbtse net pr.');
    end;
end.