Mikropascal , La asignación a la variable de bucle no está permitido

[[duilioisola]]

El asunto de este mensaje es una afirmación y no una pregunta:

Mikropascal , La asignación a la variable de bucle no está permitido

Si MikroPascal tiene esa regla/limitación, porqué no resuelves el tema con un while:

Código Delphi [-]
     while pom4 <= 65000 do
         begin
          porm4 := porm4 + 1;
          if TestBit(PORTA,DATA)=0 then pom4 := 65000;
         end;

Diche sea de paso, creo que es la forma correcta de hacerlo. El bucle FOR repite una cantidad definida de veces. El bucle while o repeat..until, se repiten mientras una condición sea verdadera.

¿Me he ganada el millón?