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

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

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

вот код..

Code:

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

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

 

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