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

[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.

[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_start,  p:pointer;
   beg:link;

   min_score:integer;

begin
mark(p_start);
xxx:=0;
repeat;clrscr;
writeln('                          vvv....');
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; release(p_start);
end.

у меня он постоянно ругаеться ... если выполнять пункты в след порядке 1, 2 , 3 ,5
или 1,2,3,4,5,2
помогите