Написать программу для определения количества и суммы только положительных чисел из 3, введенных с клавиатуры, на pascal

Program ex;

var a, b, c, s, k:integer;

begin

writeln ('Введите первое число');

readln (a);

writeln ('Введите первое второе');

readln (b);

writeln ('Введите первое третье');

readln (c);

if a>0 then

begin k:=k+1;

s:=a;

end;

if b>0 then

begin

s:=s+b;

k:=k+1;

end;

if c>0 then

begin

k:=k+1;

s:=s+c

end;

writeln ('Сумма=', s);

writeln ('Количество положительных чисел=', k)

end.