fußballsation mathematik

[xxsasch4xx]

Delphi-Quellcode:

var s,i,o:integer;
begin
  S:=1010;
  i:=0;
  O:=79041;

while s<O do
begin
  if i=0 then
  begin
    s:=1010 ;
    i:=i+1;
  end
  else
    begin
      s:=s+(20*i)+1010 ;
      i:=i+1;
    end;
end;

label1.caption:=inttostr(i);
end;

Ich habe alles nochmal überdacht und bin mit diesem queltext zu folgendem ergebnis gekommen: 53.
Nah dran aber nicht perfekt ich könnte i natürlich einfach um 1 vermindern bevor ich es ausgebe aber mein Queltext erscheint mir doch als logisch.
wenn ich jedoch S ausgeben will dann müsste ja normalerweisse 79040 ausgegebn werden aber das tut er nicht.