Помогите решить задачу по файлам на T.Pascale

[The_deviLs]

Помогите пожалуйста очень плохо разбираюсь с файлами на паскале
Задача
Создать базу данных “Футбольная лига”
Использовать
1Структуры
2Стинги
3Case
4Файлы

Структура базы:
Футбольная лига:
Команда:
1 название
2 Фио тренера
3 Кол-во игроков в команде
4 Массив структур:
1.Игрок:
-Разряд
-Возраст
-Фио

В Меню должны быть следующие пункты;
Создание файлов
Добавление
Удаление
Просмотр
Работа

В меню работа должна происходить:
1 Сортировка по Алфавиту(Фамилии в указной команде)
2 Найти и сформировать массив игроков – мастеров спорта в всей лиги

[The_deviLs]

Может у кого-нибудь была похожая программа ?

[Elm0]

Чет не понятно, тебе это все в паскале надо сделать?Хых

[The_deviLs]

ога в паскале!

[_ares_]

держи пример
program lab_7;
uses crt;
type

tosm=record
chislo:integer;
mes:integer;
god:integer;
end;

type Zap=record
num:integer;
nom:string[8];
marka:string[10];
fam:string[10];
prob:integer;
osm:tosm;
end;
var
spis:array[1..20] of zap;
buffer:array[1..1024] of byte;
buf:zap;
i,j,q,l,per,Kol_Zap,n:integer;
F1,F2:Text;
st, str,str1,str2:string;
exit:char;
label m1;
Procedure otcr;
begin
Assign(f1,'C:\sp.txt');
Reset(F1);
writeln('Данные из файла с:\sp.txt');
writeln;
While not eof(F1) do
begin
i:=i+1;
With spis[i] do
begin

readln(f1,num, nom, marka, fam, prob, osm.chislo, osm.mes, osm.god);
writeln(num, nom, marka, fam, prob, osm.chislo, osm.mes, osm.god);

End;
End;
n:=i;
End;
Procedure sort;
begin
Writeln('Персоны, прошедшие техосмотр');
For i:=1 to n do begin
with spis[i] do
if spis[i].osm.god>=2007 then
writeln(num, nom, marka, fam, prob,' ', osm.chislo,' ', osm.mes,' ', osm.god);

end;

For i:=1 to n do begin
with spis[i] do
if spis[i].osm.god>=2007 then
writeln(f2,num, nom, marka, fam, prob,' ', osm.chislo,' ', osm.mes,' ', osm.god);
end;
close(f2);
End;

begin clrScr;
otcr; readkey;
writeln;
assign(f2,'c:\sp_pr.txt');
settextbuf(f2,buffer);
rewrite(f2);
sort;
Readkey;
End.