delphi - футбольные команды

блин помогите плиззз, завтра сдавать в 8 утра, сделать не могу, не понимаю вообще....(((((((

Организовать хранение в файле записей о футбольных командах высшей лиги.
Каждая запись должна содержать следующую информацию: название клуба, фамилию
главного тренера, количество сыгранных в этом сезоне игр, и в том числе, количество
побед, ничьих и поражений. Написать программу, которая позволяет пользователю ввести
записи в файл, вывести из файла список команд с указанием набранных очков, найти и
вывести на экран название команды, набравшей максимальное количество очков (победа –
2 очка, ничья – 1 очко).

Добавлено через 16 часов 24 минуты

Сообщение от asd-uk блин помогите плиззз, завтра сдавать в 8 утра, сделать не могу, не понимаю вообще....((((((( Организовать хранение в файле записей о футбольных командах высшей лиги. Каждая запись должна содержать следующую информацию: название клуба, фамилию главного тренера, количество сыгранных в этом сезоне игр, и в том числе, количество побед, ничьих и поражений. Написать программу, которая позволяет пользователю ввести записи в файл, вывести из файла список команд с указанием набранных очков, найти и вывести на экран название команды, набравшей максимальное количество очков (победа – 2 очка, ничья – 1 очко).

вот что я могу, и все((




program Project2;
TYPE
rec=Record
Name: string[20];
igri: String[20];
o4ki: integer;
pobedi:integer;
porageniya:integer;
nichya:integer;
komanda : string[20];
end;
var
spisok:Rec;
F:File Of Rec;
C:char;
x:integer;
action:integer;

procedure vvod;
begin
rewrite(F);
Write('vvod spiska komand:');

Repeat
write('komanda:');
readln(spisok.komanda);
write('vvedite fmiliu glavnogo trenera:');
readln(spisok.Name);
Write('vvedite kol-vo igr:');
readln(spisok.igri);
write('vvedite kov-vo pobed:');
readln(spisok.pobedi);
write('vvedite kol-vo poragenii:');
readln(spisok.porageniya);
write('vvedite kol-vo nichix:');
readln(spisok.nichya);
writeln('kol-vo o4kov');
readln(spisok.o4ki);
write (F,spisok);
write('dlya prodoljenia najmite * , dlya zavershenya-luboi simvol');
readln(C);
until C<>'*';
end;


procedure poisk;
var
max:integer;
n: string;
begin
reset(F);
max:= 0;
While not Eof(F) do
begin
read(F,spisok);
if spisok.o4ki > max then
begin
max:= spisok.o4ki;
n:= spisok.komanda;
end;
end;
writeln (n);
writeln (max);
end;

procedure list;


begin
action:= 0;
While action<4 do
begin
Writeln('Menu');
Assign(F,'spisok.lst');
writeln('1-vvod');
writeln('2-vivod');
writeln('3-poisk');

writeln('vibor');
readln(x);
case x of
1 : vvod;

2 : poisk;
end;
end;
readln;
close(F);
end.

0