Программа о хоккейных командах

type hok=record
         name:string[30];
         kom:string[10];
         zab:integer;
         per:integer;
         sht:integer;
         sum:integer;
         end;
     mas=array[1..20]of hok;
procedure readfile(var f:Text;fname:string;k:integer;var a:mas;var n:integer);
var s,s1:string;
begin
assign(f,fname);
reset(f);
while not eof(f) do
 begin
   readln(f,s);
   inc(n);
   with a[n] do
    begin
     name:=copy(s,1,pos(' ',s)-1);
     delete(s,1,pos(' ',s));
     if k=1 then kom:='Динамо'
     else kom:='Спартак';
     zab:=strtoint(copy(s,1,pos(' ',s)-1));
     delete(s,1,pos(' ',s));
     per:=strtoint(copy(s,1,pos(' ',s)-1));
     delete(s,1,pos(' ',s));
     sht:=strtoint(s);
     sum:=zab+per;
    end;
 end;
close(f);
end;
var f:text;
    a:mas;
    n,i,j:integer;
    x:hok;
begin
n:=0;
readfile(f,'Динамо.txt',1,a,n);
readfile(f,'Спартак.txt',2,a,n);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].sum<a[j].sum then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
assign(f,'Лучшие.txt');
rewrite(f);
writeln(f,'6 луших хоккеистов');
for i:=1 to 6 do
writeln(f,a[i].name,'  ',a[i].kom,'  ',a[i].sum);
close(f)
end.