Нахождение максимума, с использованием файлов и меню Опции

[Santrex]

Вот тут не получаеться кое что сделать.
Условие следующее:

Сформировать файл f1,компоненты которого целый чилса.Найти наибольшее из этих чисел.Использовать процедуры, а также меню для выбора существующего или внвь создаваемого файла.

И код.
:p1:

Код

Program Zadanie8;
uses crt;
type
  spis=record
     a : array [1..100] of integer;
     mas,max,i   : integer;
  end;
  ff = file of spis;
var
massiv : array [1..100] of integer;
  a         : array [1..100] of spis;
  f1        : ff;
  q         : char;
  n,i,max,k : integer;
  name_1    : string[10];
{********* Џp®жҐ¤гp  ўў®¤  ¤ ­­ле б Є« ўЁ вгpл Ё § ЇЁбЁ Ёе ў д ©« *********}
procedure NEW_FILE (var f:ff);
  begin
clrscr;
 rewrite(f);
     Write('‚ўҐ¤ЁвҐ а §¬ҐаҐ­­®бвм ¬ ббЁў :');
     readln(n);
     Writeln('‚ўҐ¤ЁвҐ н«Ґ¬­вл ¬ ббЁў ');
     for i := 1 to n do
     begin
     readln(a[i].mas);
        end;
  close(f)
  end;
{********        Џp®жҐ¤гp  ЇҐз вЁ ? б®авЁа®ўЄЁ         **********}
procedure PRNT (var f:ff);
  begin
 reset(f1);
 seek(f1,0);
 writeln;
  write('Massiv dannix  :');
  for i := 1 to n do
  begin
  write (a[i].mas:4);
end;
max:=(a[i].mas);
for i := 1 to n do
if (max<a[i].mas) then
begin
max:=(a[i].mas);
writeln;
writeln('Њ ЄбЁ¬ «м­л© н««Ґ¬Ґ­в ¬ ббЁў  a[i] : ');
write(max);
end;
close(f)
end;
{****************       Ћб­®ў­ п Їp®Јp ¬¬         ******************}
begin
  clrscr;
          write ('Vvedite name Faila v kotorie bydyt soxraneni dannie: ');
  readln (name_1);
  assign (f1,name_1);
     repeat
     writeln;
    writeln('‚ўҐ¤ЁвҐ 1 ¤«п ᮧ ¤ ­Ёп Ќ®ў®Ј® ” ©«  :');
   writeln('‚ўҐ¤ЁвҐ 2 ¤«п Џа®б¬®ва  г¦Ґ ᮧ¤ ­­®Ј® ” ©«  :');
  writeln('Vvedite 3 dla Vixoda :');
       Readln(q);
case q of
'1' :NEW_FILE(f1);
'2' :PRNT(f1);
'3' :
end
until false;
end.

:ypr:Что эта прога глючит.Я делал ее своими руками но я токо учюся и незнаю многово о файлах,процедурах и меню.
Исправте пожалуста чтобы можно было с помощбю меню:
1)Создавать файл.
2)Открывать уже созданный файл.
3)И выход из программы.(причем программа должна закончиться токо когда пользователь выберет эту опцию)
И посмотрите по заданию правильно она пахает или нет?
СПАСИБО ВСЕМ КТО СМОЖЕТ МНЕ ПОМОЧЬ.