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

var a: array [1..250, 1..250] of integer; // матрица с числами.n, m, i, j: integer; function prime(a: integer):boolean; //Проверка на простоту.vari: integer;f: boolean;begin  for i := 2 to trunc(sqrt(a)) do    if (a mod i = 0) then     begin         f := true;          break;      end;prime := f;end;beginreadln(n, m); // Ввод размера матрицы.for i := 1 to n dobeginfor j := 1 to m doread(a[i][j]);readln;end;for i := 1 to m do  for j := 1 to n do   if (not prime(a[j][i]))   then     begin      inc(a[n + 1][i]);      inc(a[n + 2][i], a[j][i]);      end;for i := 1 to m do  writeln(a[n + 1][i],' ',a[n + 2][i]); // Вывод суммы и кол - ваreadln;end.