Написать программу для определения количества и суммы только положительных чисел из 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.