Счетчик в процедуре

[maxwel35]

Всем привет. Нужна небольшая помощь. Может кто знает, каким образом в паскале, в процедуре можно сделать своеобразный счетчик.(i:=i+1) В общем мне нужно чтобы было наподобие этого:
Пример1
Пример2
Пример3
Пример4 и т.д, т.е чтобы цифры шли по порядку до определенного числа.
Пытался в процедуре сделать с помощью цикла while, делая это как обычно, но компилятор выдал ошибку while linking. Может кто-нибудь знает как это организовать?

[ИВэТэшка]

если правильно понял задание, то можно просто переменную для счетчика сделать глобальной.

Program test;
var i,j:integer;

procedure tmp;
begin
     writeln('Example ',i);
     i:=i+1;
end;

begin
     for j:=1 to 5 do
          tmp;
readln;
end.