Дана целочисленная матрица А, размером n*m,где n,m заданные натуральные числа.Найти количество отрицательных элементов,расположенных по контуру- Pascal(Паскаль)

Uses
  CRT;

Const
  nmmax = 20;

var
  A: array [1 .. nmmax, 1 .. nmmax] of integer;
  i, j, n, m, kol: integer;

Begin
  repeat
    Write('Vvedite kol-vo strok: ');
    Readln(n);
  until n in [1 .. nmmax];
  repeat
    Write('Vvedite kol-vo stolbcov: ');
    Readln(m);
  until m in [1 .. nmmax];
  randomize;
  kol := 0;
  FOR i := 1 to n DO
  begin
    FOR j := 1 to m DO
    begin
      A[i, j] := random(10) - 3;
      write(A[i, j]:3);
      if ((i = 1) or (j = 1) or (i = n) or (j = m)) and (A[i, j] < 0) then
        inc(kol)
    end;
    writeln;
  end;
  writeln;
  writeln('Kol:=', kol);
  Readln

End.