Задачи с операторами div i mod!!Синтаксис этих функций

[homa371]

Необходимо найти сумму целых частей чисел и сумму дробных частей чисел.(т.е. "10,5" "9,3" "8,6" Сумма целых=27 Сумма дробных=1,4)

program zadacha2;
uses crt;
var
A:array[1..10] of real;
i,s:integer;
s1:real;
begin
clrscr;
s:=0;
s1:=0;
writeln('Vvedite massiv A[10]:');
for i:=1 to 10 do
      read(A[i]);
for i:=1 to 10 do
    begin
    s:=s+((A[i]) div 1);
    s1:=s1+(A[i]-((A[i]) div 1));
    end;
writlen('Summa celih 4astej 4isel=',s);
writlen('Summa drobnij 4astej 4isel=',s1);
end.

Необходимо найти максимум среди чисел кратных 2.

program zadacha3;
uses crt;
var
A:array[1..10] of real;
max,i:integer;
begin
clrscr;
max:=-100;
for i:=1 to 10 do
    begin
    readln(A[i]);
    if A[i] mod 2 then
       if A[i]>max then
          max:=A[i];
    end;
writeln('Maximum sredi 4isel kratnih 2=',max);
end.

При компиляции обоих программ выдает вот такую ошибку :
"Error 41: Operand types do not match operator."

Что и где я сделал не так?И как это исправить?

[Stilet]

Что и где я сделал не так?И как это исправить?

Эти операторы не умеют работать с типом real, и вообще только с целыми числами работают.

[homa371]

Сообщение от Stilet

Эти операторы не умеют работать с типом real, и вообще только с целыми числами работают.

а каким типом сделать переменные, чтобы эти функции работали и притом числа оставались с целой и дробной частью?

[GetMax]

а каким типом сделать переменные, чтобы эти функции работали и притом числа оставались с целой и дробной частью?

Ни один из вещественных типов не работает с mod и div. Воспользуйтесь командами
Frac(A[i]) - возвращает дробную часть и Int(A[i]) - возвращает целую часть