Ограничение запусков программы - Паскаль

[Legolender]

Всем здрасте!

Срочно нужна помощь:

Как на Паскале ограничить количество запусков программы до 3 раз?
Если можно, то хотелось бы потом это дело в exe сохранить, а будет ли работать - вопрос...

Я где-то слышал, что Паскаль ячейки после себя не чистит...

Желательно, ответ в простой форме или сам код.

Всем ОГРОМНОЕ СПАСИБО!

P.S. Речь идёт о Паскале Турбо 7

[Arigato]

Если можно, то хотелось бы потом это дело в exe сохранить

Сохранить число запусков в exe Вы не сможете. Самый простой способ - сохранять в произвольный файл. Надёжного способа на Паскале найти сложно, хотя, если очень захотеть, можно и с реестром работать (генерируя и запуская bat-файлы).

[pomoshnic]

код программы:

const og='c:\ogr.dat';{Файл проверки}
var p:file of byte;
o,r,max:byte;
begin
assign(p,og);
{$i-}
reset(p);
{si+}
r:=(ioresult);
if r <> 0 then
begin
max:=(3);
assign (p,og);
rewrite (p);
write(p,max);
end;
read(p,o);
close(p);
if (o=0) then halt;
o:=o-1;
rewrite(p);
write(p,o);
close (p);
writeln ('y vas ostalos ',o,' raz');
{сама программа}
end.

[Legolender]

Большое спасибо - всё работает!

Только вот CRT не находит...

Может я где-то не там пишу?

Program <...>;
Uses crt;
Constant <...>;
Var <...>;
<...>
end.

Можно ли работать с crt и как исправить? СПАСИБО!