Помогите пожалуйста!!!! Нужно составить программу на паскале: Дано три числа. Найти количество положительных чисел среди них

Var
  a,b,c:real;
  k:integer;
begin
  Write(Введите три числа через пробел: ); Read(a,b);
  k:=0;
  if agt;0 then Inc(k);
  if bgt;0 then Inc(k);
  if cgt;0 then Inc(k);
  Writeln(Количество отрицательных чисел ,k)
end.

Пример
Введите три числа через пробел: 23.5 -24 0
Количество отрицательных чисел 1

Program zadacha;

var

a: array[1..3] of real;

i,k: integer;

begin

k:=0;

writeln(vvedite 3 chisla);

for i:=1 to 3 do read(a[i]);


for i:=1 to 3 do begin

if a[i]gt;0 then k:=k+1;

end;

writeln(kol-vo polojit.chisel =,k);

end.