Дан двумерный вещественный массив размерностью m*n.Найдите число элементов,по модулю меньших введённого значения k — Pascal(Паскаль)

program test;

const
  m = 2;
  n = 3;

var
  i, j, k, col: integer;
  c: array [1 .. m, 1 .. n] of integer;

begin
  col := 0;
  write('vvedite k ');
  readln(k);
  writeln('vvedite matritsu');
  for i := 1 to m do
    for j := 1 to n do
    begin
      readln(c[i, j]);
      if abs(c[i, j]) < k then
        inc(col);
    end;
  writeln('kolichestvo takih=', col);
  readln;

end.