Wszystko jest wyjasnione (zapytane ;-) ) w komentarzach:
...
procedure jakasProcedura;
begin
if z='x' then
begin
writeln('np. You Win');
halt;
{przerywa program}
{jak zrobic zeby ponowic gre?? tak zeby zdecydowac jak na koncu kodu, czy chce sie jeszzce raz zagrac czy zakonczyc program??tak żeby przeszlo w miejsce X (patrz strzałka nizej)}<=====
end;
end;
{poczatek programu}
begin
{X} <<<======================================================== X
repeat
...
{część kodu}
...
jakasProcedura;
...
readln(a);
until a = 'n';
{jezeli wspisze "n" to przerywa i konczy program jesli cos innego to rozpoczyna od nowa}
end.
z góry dzieki za pomoc