Pascal Написать программу помогите help

[Alexander This is Kurgan]

Среднее геометрическое положительных чисел,а в случае их отсутствия выдать об этом сообщение. Вот и все задание а как в программе написать не знаю. Выручайте ребята

[krab]

var 
a,sum:integer;
s:real;
begin
sum:=1;
a:=1;
s:=0;
while a<>0 do
begin
а:=0;
readln(a);
if a>0 then sum:=sum*a;
end;
s:=sqrt(sum);
if s>0 then writeln("Srednee geom=",s) else writeln("Polozhitelnyh chisel nebylo");
end.

Будет ожидать ввода чисел, пока не введете 0.
Както так

[Alexander This is Kurgan]

Спасибо работает)