Pascal ABC — как сделать?

const N = 5; 
var
  i, j, s: Integer; 
  nums: array[1..N] of Real; 
begin
  for i := 1 to N do begin 
    ReadLn(nums[i]);
  end;
  
  s := 0; 
  for j := 1 to N do begin 
    if Frac(nums[j]) <> 0 then begin 
      s := s + 1;
    end;
  end;
  
  WriteLn(s);
end.