Сколько положительных элементов содержит матрица?(Модуль Graph ABC)

[Otar4ik]

Добрый вечер!
Вначале напишу что случилось,собственно программа добавляет строки,столбцы всё делает правильно но при нажатии клавиши F3(самое главное)выскакивает окно с сообщением

"Unhandled expection has occured in your application.а дальше если нажмете Continue то будет одно,а если Quit то другое)"

Само задание
Реализовать на основе динамического двумерного массива задание №1. Количество строк и столбцов вводит пользователь.

Интерфейс программы оформить с помощью модуля GraphABC;

Прорисовать в окне значения горячих клавиш.
Двумерный массив выводить в виде таблицы с очерченными контурами. Элементы главной и побочной диагоналей при выводе выделить цветом.
Предусмотреть понятную форму вывода результата задания.

Дано Натуральное число N.Выяснить сколько положительных элементов содержит матрица [a ij]. I, j=1,…,n если a ij=sin(I+j/2)

program lab4_2;
uses GraphABC;

type stroka=array of integer;
var
mas: array of stroka;
n,m,i,j:integer;

procedure initgraph;
var 
i,j:integer;
begin
writeln ('введите кол-во строк');
readln(n);
writeln ('введите кол-во столбцов');
readln(m);
setlength(mas, n);                      
for i := 0 to n - 1 do
  setlength(mas[i], m); 
for i:=0 to n-1 do
 for j := 0 to m - 1 do
   mas[i, j] := random(-20, 20);
end;


procedure findpol;
var
col,i,j:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to n do
if Sin(i+j/2)>0 then inc(col);
writeln(col);
end;

procedure print;
var
x1,y1,i,j:integer;
begin
window.clear;
x1:=10;
y1:=20;
for i := 0 to n - 1 do
begin
 for j := 0 to m - 1 do
 begin
 DrawRectangle(x1,y1,x1+50,y1+50);
 if i=j then
 font.color:=clred
 else
  font.color:=clblack;
 TextOut(x1+13,y1+16,mas[i,j].tostring);
 x1:=x1+50;
 end;
 y1:=y1+50;
 x1:=10;
end;
end;

procedure DobStroka;
var 
x1,y1,i,j:integer;
begin;
n:=n+1;
setlength(mas, n);                      
setlength(mas[n-1], m);
for j := 0 to m - 1 do
mas[n-1,j] := random(-20, 20);
print;
end;

procedure DobStolb;
var 
x1,y1,i,j:integer;
begin;
m:=m+1;
for i:=0 to n-1 do                     
setlength(mas[i], m);
for i := 0 to n - 1 do
mas[i,m-1] := random(-20, 20);
print;
end;

procedure KeyDown(Key: integer);
begin
case Key of
VK_F1:
begin DobStroka ;print;end;
VK_F2:
begin dobstolb ;print;end;
VK_F3:
begin findpol ;print;end;
end;
end;

BEGIN
initgraph;
print;
onKeydown:=keydown;
END.