Таблица (команда, город, число очков).

uses crt,dos;
 
type
team=record name, city: string[80];
p:integer 
end;
arr=array[1..40] of team;
 
procedure ent(var t:team);
begin
write ('vvedite time name='); 
readln (t.name);
if t.name='' THEN EXIT;
write ('vvedite city='); 
readln (t.city);
write ('vvedite points='); 
readln (t.p);
end;
 
 
procedure enter (var a:arr; var n:integer);
     var i:integer;
begin N:=0;
repeat n:=n+1; 
ent(a[n]) until a[n].name='';
n:=n-1 
end;
 
 
procedure show(a:arr;n:integer);
var i:integer;
begin for i:=1 to n do 
begin
writeln (a[i].name:10,a[i].city:8,a[i].p:4);
delay (10000)
 end
 end;
 
 
 
function fname: string;
var s:string;
begin textcolor(4);
write('Filename=');
readln(s);
      fname:=s
      end;
procedure save(a:arr; n:integer; fn:string);
  var i:integer;
  f:file of team;
  begin assign(f,fn);
  rewrite(f);
   for i:=1 to n do
   write(f,a[i]);
   close(f);
   end;
 
 
procedure load(var a:arr; var n:integer; fn:string);
  var i:integer; 
f:file of team;
  begin assign (f, fn); 
reset(f);
  n:=0;
  while not eof(f) do 
begin 
n:=n+1;
   read (f,a[n]);
   end;
   close(f);
   end;
 
procedure add(t:team; var a:arr; var n:integer);
begin a[n+1]:=t;
n:=n+1 
end;
 
var my, his:arr; 
n,m:integer;
tt:team;
 
 
begin 
randomize;
      repeat textcolor (10);
      clrscr;
writeln('1-enter, 2-show, 3-max, 4-odds, 5-save, 6-load, esc-quie');
case readkey of
'1':begin enter (my,n); show(my,n) end;
'2':show(my,n);
'3':begin ent(tt);add(tt,my,n);show(my,n) end;
'5':begin save (my,n,fname);writeln('save OK!!!') end;
'6':begin load (my,n,fname);show(my,n) end;
#27:begin writeln('Bye-Bye');
    readln;
exit
          end;
end;
readln until false;
end.