fehler gibts... die gibts nit...

[Thunderbolt]

Kann mir irgendjemand Erklären, warum um alles in der Welt dieses Programm total unsinnige Sachen ausgibts?

Delphi-Quellcode:

program aa;
{$APPTYPE CONSOLE}
uses SysUtils;

const obergrenze=50;

type feld = array [1..obergrenze] of string;

var potenzen :feld;
    i,eingabe :integer;

function zwei_hoch (n: word) :extended;
var temp :integer;
begin
  temp:=1;
  for i:=1 to n do temp:=temp*2;
  zwei_hoch:=temp;
end;

procedure generieren;
begin
  for i:=1 to obergrenze do potenzen[i]:=floattostr(zwei_hoch(i));
end;

begin
  generieren;
  repeat
    readln(eingabe);
    writeln(potenzen[eingabe]);
  until eingabe=0;
end.

Eigentlich solls ja nur ein Paar Potenzen generieren und speichern. Ich musste aber lustigerweise feststellen dass die for schleife beim generieren in 2 er schritten hochgeht und andere unerklärliche sachen...