задача TurboPascal с текстовым файлом, помогите....

Доброго времени суток.

Предположим, файлы уже созданы. Если нет, создайте сами. Здесь я показываю, как их обрабатывать. Предположим, расширение этих файлов будет *.dat

uses Crt;
type
THockey = record
Name : String[20];
Goals, Pas, Straf : Integer;
end;

var
InF : File of THockey;
FName1, FName2 : String;
A : array[1..100] of THockey;
n : Integer;
T : THockey;
j : Integer;

begin
ClrScr;
Write('vvedite imya pervogo faila : ');
ReadLn(FName1);
Write('vvedite imya vtorogo faila : ');
ReadLn(FName2);

{считывание данных из файла в массив}
n := 0;
Assign(InF, FName1+ '.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);

Assign(InF,fname2+ '.dat');
Reset(InF);
while not Eof(InF) do begin
n := n + 1;
Read(InF, A[n]);
end;
Close(InF);
{информация из обоих файлов размещена в одном массиве}

{отсортируем его по сумме гол+пас}
for i := 1 to n do
for j := 1 to n - i do
if A[j].Goals+A[j].Pas < A[j+1].Goals + A[j+1].Pas then begin
T := A[j];
A[j] := A[j+1];
A[j+1] := T;
end;
{все, массив отсортирован}

{теперь достаточно вывести шесть первых элементов этого массива, это тоже сами}

ReadLn;
end.

Удачи!

PS Что-то нашептывает мне, что такая задача уже была.. .

бесплатно никто не поможет.. .