Паскаль. Помогите, пожалуйста)))
Дан двумерный массив целых чисел. В каждом столбце найти количество элементов кратных a и b.

Просили сделать суммы для a и b по отдельности

ну окей щас все будет )

листинги в приложении нижепервый листинг - ищет кратность либо а либо бвторой листинг - по отдельности ищет

const  m = 5;  n = 8;var  x: array[1..m, 1..n] of integer;  i, j, a, b, k: integer;begin  write('Введите числа a,b: ');  readln(a, b);  Randomize;  writeln(#13#10, 'Исходный массив');  for i := 1 to m do  begin    for j := 1 to n do    begin      x[i, j] := Random(100) - 50;      write(x[i, j]:5)    end;    writeln  end;  writeln('Количество элементов матрицы, кратных ', a);  for j := 1 to n do  begin    k := 0;    for i := 1 to m do      if x[i, j] mod a = 0 then k := k + 1;     write(k:5)  end;  writeln;  writeln('Количество элементов матрицы, кратных ', b);  for j := 1 to n do  begin    k := 0;    for i := 1 to m do      if x[i, j] mod b = 0 then k := k + 1;     write(k:5)  end;  writelnend.Тестовое решение:Введите числа a,b: 4 7Исходный массив  -16    3   26    4   46   -6  -31   21  -35  -34   46   42   15  -26   -9    4  -19  -47    8  -48   13   14   42  -46   41  -10   13   45  -20   15   13  -44   18  -11   23  -30   44  -36   -8  -42Количество элементов матрицы, кратных 4    1    0    1    2    2    1    1    2Количество элементов матрицы, кратных 7    1    0    0    1    0    1    1    2