Натуральное число(Модуль Graph)

[Otar4ik]

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

Проблема
Программа компилируется,но я не могу вывести ответ на форму.Не хватает функции но я не могу понять какой.

Код Pascal

program lab4_2;
uses GraphABC;
type stroka=array of integer;
var
mas: array of stroka;
n,m,i,j:integer;
 
procedure init;
var 
col,i,j:integer;
begin
writeln ('введите кол-во элементов');
readln(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 findpol;
var
col,i,j,n: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 AddStroka;
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 AddStolbc;
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 AddStroka ;print;end;
VK_F2:
begin AddStolbc ;print;end;
end;
end;
 
BEGIN
init;
print;
onKeydown:=keydown;
END.

[Luuzuk]

Не хватает вызова функции initgraph в процедуре print