Wie lang dürfen verschachtelte FOR-Schleifen sein?

[kleiner Unwissender]

a^n+b^n=c^n

kumpel hat gesagt ich soll mal gucken ob ich Natürliche Werte finde für a,b,c wenn n>2.

Ich denke es gibt wohl keine Lösung, aber ich wollte es halt mal probieren, wozu hat man schließlich nen Rechner?^^

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,l:integer;
begin
for i:=3 to 100 do
begin
 n:=i;
 for j:=1 to 100 do
  begin
   a:=j;
   for k:=1 to 100 do
    begin
     b:=k;
     for l:=1 to 100 do
     begin
     c:=l;
     Ergebnis1:=(exp (n*ln(a))+(exp (n*ln(b))));
     Ergebnis2:=exp (n*ln(c));
     Endergebnis:=Ergebnis2-Ergebnis1;
     if Endergebnis=0 then
     begin
     Edit1.text:=inttostr(a);
     Edit2.text:=inttostr(b);
     Edit3.text:=inttostr(c);
     Edit4.text:=inttostr(n);
     end
     else
     begin
     Edit1.text:='a';
     Edit2.text:='b';
     Edit3.text:='c';
     Edit4.text:='n';
     end;
     end;
    end;
   end;
end;
showmessage('Fertig!');
end;

//Edit: hier der Quelltext