задачу на паскале помогите Завершить!

program for_text;uses crt;var f1,f2,f3:text;i,k:integer;name,fname,fname2,fname3:string;goals,pass,fouls,gp1,gp2:integer;beginclrscr;writeln('Vvedite IMYA faila'); {создание первого текстового файла}readln(fname);assign(f1,fname);rewrite(f1);writeln (f1, 'Familiya':10,'Goals':12,'kol-vo Passov':16,'Strafnoe vremya':18,'goals+pass':23);for i:=1 to 10 do beginwriteln ('vvedite FIO igroka');readln(name);writeln('Vvedite goals');readln(goals);writeln('Vvedite pass');readln(pass);writeln('vvedite fouls');readln(fouls);gp1:=goals+pass;writeln (f1, name :10,goals:12,pass:16,fouls:18,gp1:23);end;close(f1);readkey;writeln('Vvedite IMYA 2-go faila'); {создание второго текстового файла}readln(fname2);assign(f2,fname2);rewrite(f2);writeln (f2, 'Familiya':10,'Goals':12,'kol-vo Passov':16,'Strafnoe vremya':18,'goals+pass':23);for i:=1 to 10 do beginwriteln ('vvedite FIO igroka');readln(name);writeln('Vvedite goals');readln(goals);writeln('Vvedite pass');readln(pass);writeln('vvedite fouls');readln(fouls);gp2:=goals+pass;writeln (f2, name :10,goals:12,pass:16,fouls:18,gp2:23);end;close(f2);readkey;end.--------------------------------------------я создаю два файла, в каждом по 10 хоккеистов(фамилия , шайбы, пасы , фолы, гол + пас).Нужно отсортировать по (Гол+ пас), и создать третий текстовой файл, в котором будут 6(внимание не по 6 с каждой, а 6 лучших считая из обеих команд) лучших игроков из обеих команд----------------------------------------------------------------------------------------------------------------------------------------уважаемый GEnnady ясно же написано что файл текстовой, а не типизированный, или вы знаете как структурированный тип записать в текством файле, что бы без косяков было???