квест- найти ошибки в проге...

[BadSanta]

:::PLEASE HELP:::
ребята, помогите плз с программой: создать и заполнить файл базой данных о фамидии студента+ год рождения; сортировка по возрасту+запись в файл+ вывод(4 кнопки; 2 мемо; 1кн.-создание файла, 2кн-ввод данных в файл, 3кн-Вывод исх. данных, 4 кн- Сортировка по году и вывод)

незнаю, всё перепробовал- начиная от замены цикл. операторов до имён файлов...

заметите ошибку- напишите плз... и ёщё+ как правильно...
вот мой код программы:
procedure TForm1.Button1Click(Sender: TObject);
type
uch=record
fam:String[30];
god:Integer;
end;
var
f:File of uch;
begin
assignfile(f,'baza.kik');
rewrite(f);
closefile(F);
end;

procedure TForm1.Button2Click(Sender: TObject);
type
uch=record
fam:String[30];
god:Integer;
end;
var
f:file of uch;
a:uch;
p:longint;
begin
assignfile(f,'baza.kik');
reset(f);
a.fam:=edit1.Text[30];
a.god:=strtoint(edit2.Text);
write(f,a);

closefile(f);
end;

procedure TForm1.Button3Click(Sender: TObject);
const max=10;
type
uch=record
fam:String[30];
god:Integer;
end;
mas=array[1..max] of uch;
var
f:file of uch;
a:mas;
i,x:integer;
s:string;
begin
assignfile(f,'baza.kik');
reset(f);
x:=1;
i:=1;
while not eof(F) do
begin
inc(X);
read(f,a[i]);
inc(I);
end;
closefile(F);
for i:=1 to x do
begin
s:=a[i].fam+' '+inttostr(a[i].god);
memo1.lines.add(S);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
const max=10;
type
uch=record
fam:String[30];
god:Integer;
end;
mas=array[1..max] of uch;
var
a:mas;
s:string;
i:integer;
f:file of uch;
T:Uch;
begin
assignfile(f,'baza.kik');
reset(f);
for i:=1 to filesize(F) do
read(f,a[i]);
for i:=1 to filesize(F) do
if a[i].god<a[i-1].god then begin
t:=a[i-1];
a[i-1]:=a[i];
a[i]:=t;
end;
for i:=1 to filesize(F) do
begin
s:=a[i].fam+' '+inttostr(a[i].god);
memo2.Lines.Add(s);
end;
rewrite(f);
for i:=1 to filesize(F) do
write(f,a[i]);
closefile(F);
end;

end.

[Dj_smart]

Для начала бы оформили код нормально - просто раздражает.
Потом может быть посмотрим