Bienvenido al Club.
Por lo general en este tipo de casos nos gusta mas ayudar a pensar que resolver el problema
La solucioon a este problema es muy similar a lo que venias haciendo. Solamente que en este caso no se conoce el numero de iteraciones. No necesitas N variables
Es decir, antes tendrias una estructura similar a esta:
Código Delphi
[-]
var
I: Integer; Total: Integer; begin
ReadLn(Total); for I := 0 to Total - 1 do
begin
end;
end;
En lineas generales, el for recorre desde I hasta N todos los elementos. El while es una estructura que no maneja un indice, simplemente se repite mientras (de ahi su nombre) la condicion que evalua sea verdadera
Ejemplos sencillos:
Código Delphi
[-]
while True do
begin
WriteLn('este codigo se ejecutará por lo siglos de los siglos !');
end;
Código Delphi
[-]
var
Condicion: Boolean;
begin
while Condicion do
begin
WriteLn('este codigo se ejecutará por lo siglos de los siglos a menos que alguien ponga "Condicion" en Falso !');
end;
Código Delphi
[-]
var
I: Integer;
begin
I := 0;
while I < 10 do
begin
I := I + 1;
Writeln('La variable I ahora vale ' + IntToStr(I));
end;
Espero te sirva