Exemple

procedure affichage ( v : Vecteur ; n : integer);

var

    i: integer; { i est une variable locale, Cf. ‎8.3 }

begin

    for i:=1 to n do write(v[i]);

    writeln;

end;

Cette procédure peut être utilisée pour une variable de type :

Vecteur = array[1..Nmax] of real ; Nmax étant une constante définie au préalable.