summe der ersten n zahlen berechnen

[PomBär]

moin leute
ich hab versucht die summe der von der tastatur stammenden zahl zu berechnen.

Delphi-Quellcode:

var summe,N, zahl:integer;
begin
  summe:=0;
  zahl:=0;
  readln(N);
  repeat
   zahl:=  zahl+1;
   summe:= summe+zahl;
  until
  zahl>=N;
  writeln(N);
  readln;
end.

ich bekomme aber leider kein sinnfolles ergebnis.
könnt ihr mir bitte helfen?