Задача на тему СПИСКи Опции

[punkska]

вот наступила оень пора закрывать сессию!=)



вот смотрю я на свою прогу и не могу понять зачем я в ней счётчик сделал?
без него вроде не работает .. а что он делает я не поёму (забыл за лето)
может опытный глаз профи увидит недочёты

program laba_4_a;
uses crt;
type
    link=^komanda;
    komanda=record
                  name:string[20];
                  shayb:integer;
                  peredach:integer;
                  stime:integer;
                  nkom:string[10];
                  score:integer;
                  next:link;
                  end;
    fkom=file of komanda;

    var
    f:fkom;
    xxx,k,z,n,i:integer;
    s,newrec:link;
    p:pointer;
    beg:link;

    min_score:integer;

begin
xxx:=0;
repeat;clrscr;
writeln('                          ....laba....');
gotoxy (1,10);
writeln ('1. VvoD DaHHbIX..........');
writeln ('2. View DaHHbIX..........');
writeln ('3. SaVe DaHHbIE..........');
writeln ('4. Load DaHHbIE..........');
writeln ('5. Delete................');
writeln ('9. BEST PLAYERS..........');

writeln (' ');
writeln ('0. E-X-I-T');
writeln ('Press 1-4:');
readln (z);
case z of
1:
begin
    xxx:=xxx+1;
    clrscr;
    writeln ('BBeDuTe Kol-vo igrokov:');
readln (n);
mark(p);
    beg:=nil;
   for i:=1 to n do begin
    new(s);
    write ('N',i);
    write (' Name of player:'); readln (s^.name);
    write (' Kol-vo shayb:'); readln (s^.shayb);
    write (' Kol-vo peregach:'); readln (s^.peredach);
    write (' Shtraf.time:'); readln (s^.stime);
    s^.score:=s^.shayb+s^.peredach;
    s^.next:=beg;
    beg:=s;
    end;
end;
2:
begin
clrscr;
s:=beg;
writeln('Name of player      Kol-vo shayb     Kol-vo peredach       Shraf.Time');
repeat
writeln(s^.name,'              ',s^.shayb,'                 ',s^.peredach,'                      ',s^.stime);
s:=s^.next;
until s=nil;
readln;
end;
3:
begin
assign (f,'file.dat');
rewrite(f);
s:=beg;
repeat
write (f,s^);
s:=s^.next
until s=nil;
release(p);
end;

4:
begin
if xxx>0 then release(p);
assign (f,'file.dat');
reset(f);
mark(p);
s:=beg;
for i:=1 to filesize (f) do
begin new (s);
read(f,s^);
    s^.next:=beg;
    beg:=s;
end;
close (f);
{s:=beg;}
end;


9:
begin
clrscr;
writeln ('Enter min. Score');
readln (min_score);
s:=beg;
writeln('Name of player      Kol-vo shayb     Kol-vo peredach       Shraf.Time');
repeat
if (min_score<=s^.score) then
writeln(s^.name,'              ',s^.shayb,'                 ',s^.peredach,'                      ',s^.stime);
s:=s^.next;
until s=nil;
readln;
end;

5:
begin
writeln ('Enter Number...');
readln (n);
if n=1 then
begin newrec:=beg;
beg:=beg^.next;
end
else begin
s:=beg;
for i:=1 to n-2 do s:=s^.next;
newrec:=s^.next;
s^.next:=newrec^.next;
end;
dispose(newrec);
end;

end;
until z=0;
end.

[volvo]

Что именно "не получается"?
Я имел в виду вот так:

Var
  p_start: Pointer;
begin
  WriteLn('Доступно памяти: ', MemAvail);
  mark(p_start); { запомнил первоначальное состояние }
  xxx:=0;
  repeat; clrscr;
    ...
    case z of
    1 ...
    end;
  until z=0;
  release(p_start); { вернулся к первоначальному состоянию }
  WriteLn('Доступно памяти: ', MemAvail);
end.