Pascal нужно немного помочь с кодом

[0x22b]

Условие Из заданой матрицы А(5х7) элементы которой формируются по формуле........... сформировать одномерный массив В состоящий из элементов матрицы которые стоят на пересечении четных строк и четных столбцов матрицы А.

Вообщем с паскалем дружу плохо, кое что накидал, но мне нужно чтоб в массив В числа записывались без дробной части..

вот код..


program zadanie1;
var
i,j,k:integer;
sa:real;
matrixA:array[1..5,1..7] of single;
arrB:array[1..6] of single;
begin

for i:=1 to 5 do
for j:=1 to 7 do
matrixA[i,j]:=2*sin(3*i)+3*(sin(3*j*i)/cos(3*j*i));

k:=1;

for i:=2 to 5 do begin
if (i mod 2)=0 then begin
for j:=2 to 7 do begin
if (j mod 2)=0 then begin
arrB[k]:=matrixA[i,j];
inc(k);
end;
end;
end;
end;

for i:=1 to 6 do
writeln(arrB[i]);
end.


вывод такой:

-2.46641087532043E+0000
-6.96352100372314E+0000
2.26925811767578E+0001
-7.47783613204956E+0000
2.52723598480225E+0000
-1.86039793491364E+0000

мне нужны просто целые числа..

[Ins3t]

Функция Trunc: Усекает значение вещественного типа к значению целочисленного типа.