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; {переменная типа ZNAK} 
number:integer; 
f:file of ZNAK;{типизиорованный файл для хранения записей} 
c:char;
Procedure Create_file; 
begin 
Seek(f, FileSize(f));
Writeln('Введите сведения о человеке.'); 
Writeln('Для выхода введите *'); 
begin 
repeat
writeln('Фамилия: ');readln(a.fam); 
if a.fam='*' Then Break; 
writeln('Имя: ');readln(a.nam); 
writeln('Знак зодиака: ');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);
c:=readkey;  
until c=#27;
end; 
end;
Procedure Print_file; 
begin 
Seek(f,0); 
Writeln('Фамилия: ':15,'Имя: ':15,'Дата рождения: День ':5,'Месяц ':5,'Год ':5,'Знак зодиака: ':15); 
while not eof(f) do 
begin 
Writeln(a.fam:15,a.nam:15,a.roz[1]:5,a.roz[2],a.roz[3],a.zod); 
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.