For … to/dawnto … do

Ogólny schemat:

 for wyr_inicjujące to wyr_koncowe do
    //Instrukcje

for wyr_inicjujące downto wyr_koncowe do
    //Instrukcje

Pętla ta wykonuje instrukcje (prosta lub złożoną) dopóki wartość wyr_inicjalizujace nie osiągnie wartości wyr_koncowe. Wyrażenie inicjujące wyr_inicjujace musi przyjmując postać:

zmienna := wartosc_poczatkowa

W zależności od słowa kluczowego między wyrażeniem inicjującym a wyrażeniem końcowym, wartość zmiennej z wyrażenia inicującego będzie stopniowo kolejnym (to), lub poprzednim (downto) elementem zbioru wartości typu.

Typ zmiennej w wyrażeniu inicjującym musi być jednym z typów porządkowych.

Dobrym zwyczajem jest przyjęcie za identyfikator zmiennej z wyrażenia inicjującego jedną z środkowych liter alfabetu: i, j, k, l.

Przykład:

uses
    Crt;

var
    Tablica : array[0..9] of integer;
    i : integer; //Zmienna do wyrazenia dla petli for

begin
    Randomize;
    ClrScr;

    WriteLn('Od Poczatku:    Od Końca: '); //Naglowelk
    for i := 0 to 9 do
        begin
            Tablica[i] := random(10); //losujemy liczby
            WriteLn(Tablica[i]:12); //Wypisujemy w kolejnosci
        end;

    GoToXY(25, 2);
    for i := 9 downto 0 do //wypisujemy liczby w kolejnosci odwrotnej w 2 kolumnie
        begin
            Write(Tablica[i]);
            GoToXY(25, WhereY + 1);
        end;
    WriteLn;
end.