вести 5 целых чисел

[viknik]

в Дэлфи. вести 5 целых чисел определить сколько числе положительных. если таковых нет, то вывести соответствующее сообщение

[Delphi_ProGer]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var i, n: integer;
k: real;
begin
n:=0;
  for i:=0 to 4 do
begin
readln(k);
if k<0 then Inc(n);
end;
writeln('polozhitelnyh:', n);
end.

может не скомпилиться, в компиляторе не пробовал)