Обработка файловых структур данных

[Жания Набиева]

Помогите че то у меня не получается((

1)Создать два файла содержащих сведения о десяти нападающих хоккейных команд "Динамо" и "Спартак" соответственно: имена нападающих, число заброшенных ими шайб, сделанных голевых передач, заработанное штрафное время.

2)Написать программу, которая по данным, извлеченным из этих файлов, создает новый третий файл, содержащий имя, команду, сумму очков(голы+передачи) для шести лучших игроков обеих команд. Имена и показатели результативности хоккеистов вывести на экран.

[Stilet]

Что не получается? Показывай как пробуешь.

[Жания Набиева]

program LR8A;
type
zap=record;
name: string[10];
number: string[2];
time: string[2];
napad: array[0..10]of char
end;
var
igra: file of zap;
k:integer;
flag:boolean;
x:zap;
begin
assign(igra,'igra');
k:=0; flag:=true;
rewrite(igra);
repeat
writeln('введите текущую запись:имена нападающих, число шайб, штрафное время');

read(x.name, x.number, x.time,x.napad[0],x.napad[1],x.napad[2],x.napad[3],x.napad[4],x.napad[6],x.napad[7],x.napad[8],x.napad[9],x.napad[10]);
if x.name<>'######' then
begin
k:=k+1;
write(igra, x)
end
else
flag:=false
until flag;
writeln('в файле ',k,' записей');
reset(igra);
while not eof(igra) do
begin
read(igra,x);
writeln(x.name, x.number, x.time,x.napad[0],x.napad[1],x.napad[2],x.napad[3],x.napad[4],x.napad[6],x.napad[7],x.napad[8],x.napad[9],x.napad[10]);
end;
writeln('конец файла');
close(igra)
end.