Przy uruchamianiu pojawia się błąd:
[Warning] Unit4.pas(310): For loop control variable must be simple local variable
Co jest źle?
0
0
Musisz stworzyć jakąś zwykłą zmienną lokalną
0
znaczy zamiast var I: Integer; begin for I:=0 to 100 do [...] dałeś np Function Ship(var a:integer):integer; begin for a:=0 to 100 do lub for result:=0 to 100 do [...]
Miej więcej coś w tym stylu
0
Sie znaczy, że w pętli zmienna musi być zmienną lokalną.
Czyli prawdopodobnie w jakiejś funkcji lub procedurze do działania pętli for...to...do użyłeś zmiennej globalnej - musisz zadeklarować zmienną lokalną, czyli wewnątrz procedury/funkcji.