Форум АНТИЧАТ - Pascal нужно немного помочь с кодом

Условие Из заданой матрицы А(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

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