Pascal ABC, создание меню

[ira.]

Здравствуйте, помогите пожалуйста с программой!
Нужно создать меню, включающее пункты:
1-Создание файла
2-Вывод содержимого файла
3-Выход
Помогите исправить ошибки. Заранее спасибо)

Program Lab11;
uses crt;
type ZNAK=record 
          fam:string[15];
          nam:string[15];
          zod:string[15];
          roz:array[1..3] of word;
          end;
var a:ZNAK; 
    f:file of ZNAK;
   Procedure Create_file;
begin
Seek(f, FileSize(f));
Writeln('Введите сведения о человеке.');
Writeln('Для выхода введите *');
While True Do
begin
repeat  
write('Фамилия: ');readln(a.fam);
if a.fam='*' Then Break;
write('Имя: ');readln(a.nam);
write('Знак зодиака: ');readln(a.zod);
writeln('Дата рождения: ');
repeat  
write('День: ');readln(a.roz[1]);
until (a.roz[1]>0)and(a.roz[1] <=31);
repeat
write('Месяц: ');readln(a.roz[2]);
until (a.roz[2]>0)and(a.roz[2]<=12);
repeat
write('Год: ');readln(a.roz[3]);
until (a.roz[3]>=1900)and(a.roz[3]<=2008);
write(f,a)
end;
end;
Procedure Print_file;
begin
Seek(f,0);
Writeln('Фамилия':15,'Имя':15,'Дата рождения День':5,'Месяц':5,'Год':5,'Знак зодиака':15);
while not eof(f) do
begin
Readln(f,a);
Writeln(a.fam:15,a.nam:15,a.roz[1]:5,a.roz[2],a.roz[3],a.zod:15:2);
end;
Readln;
end;
begin
assign(f,'zod.dat');
Rewrite(f);
While True Do Begin
Writeln ('1 - Создание файла');
Writeln ('2 - Вывод содержимого файла');
Writeln ('3 - Выход');
Readln (Number);
Case Number of
1: Create_file;
2: Print_file;
3: Exit;
end;
end;
end.