[delphi] ciag jak zapisac

witam

mam problem jak zapisac algorytm sumy ciagu konczacego sie 0 w srodowisku delphi

pozdrawiam

var suma,element:integer;
suma:=0;
begin
  readln(element);
  while(element<>0)
   begin
   suma:=suma+element;
   readln(element);
   end;
write('suma podanego ciągu to: ');
writeln(suma);
end.