[_Nox_]

Можно например сделать так:

program test;
var p:boolean;
procedure rec (a:integer; var p:boolean);
begin
if p then exit;
{ну тут какой-то оператор}
a:=a+1;
{тут параметр выхода}
if a > 100 then p:=true;
rec (a,p);
end;

begin
p:=false;
reC (1,p);
end.