Найти количество положительных цифр среди четырех целых A,B,C,D — Pascal(Паскаль)

uses crt;
var a,b,c,d:integer;
    k:byte;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
k:=0;
if a>0 then k:=k+1 else k:=k+0;
if b>0 then k:=k+1 else k:=k+0;
if c>0 then k:=k+1 else k:=k+0;
if d>0 then k:=k+1 else k:=k+0;
writeln('Polozitelnyh chisel ',k);
readln
end.