Типизированый файл

uses crt;
const n=6;
type menu=record
          kod:integer;
          naz:string;
          cen:real;
          vid:string;
          end;
     tfile=file of menu;
procedure Kontrol(s1,s2:string;var f:boolean;var a:integer;var b:real);
var c:integer;
    s:string;
begin
f:=true;
val(s1,a,c);
if (c<>0)or(a<=0) then f:=false;
val(s2,b,c);
if (c<>0)or(b<=0) then f:=false;
end;
procedure Vvod(var f:tfile);
var z:menu;
    i,a:integer;
    b:real;
    s1,s2:string;
    fl:boolean;
begin
assign(f,'menu');
rewrite(f);
for i:=1 to n do
 begin
  writeln('Введите данные о блюде ',i);
  with z do
   begin
    repeat
    write('Код, натуральное число: ');read(s1);
    write('Наименование:');read(naz);
    write('Цена, вещественное положительное число:');readln(s2);
    write('Вид блюда:');read(vid);
    Kontrol(s1,s2,fl,a,b);
    if not fl then writeln('Данные введены неверно, повторите ввод')
    else
     begin
      z.kod:=a;
      z.cen:=b;
     end;
    until fl;
    write(f,z);
   end;
 end;
close(f);
clrscr;
end;
procedure Zagl;
begin
writeln('----------------------------------------------');
writeln('|  Код   | Наименование  |  Цена  |   Вид    |');
writeln('----------------------------------------------');
end;
procedure Vyvod(var f:tfile);
var z:menu;
begin
clrscr;
reset(f);
writeln('Меню:':25);
Zagl;
while not eof(f) do
 begin
  read(f,z);
  with z do
   begin
    gotoXY(1,whereY);write('|',kod:6);
    gotoXY(10,whereY);write('| ',naz);
    gotoXY(26,whereY);write('|',cen:7:2);
    gotoXY(35,whereY);write('| ',vid);
    gotoXY(46,whereY);writeln('|');
   end;
 end;
close(f);
writeln('----------------------------------------------');
readln;
end;
procedure Kod(var f:tfile);
var z:menu;
    s:string;
    k,c,p:integer;
begin
clrscr;
repeat
write('Введите код, натуральное число k=');
read(s);
val(s,k,c);
if c<>0 then writeln('Вы ввели не натуральное число, повторите ввод');
until c=0;
reset(f);
writeln('Блюда с кодом ',k);
Zagl;
p:=0;
while not eof(f)do
 begin
  read(f,z);
  with z do
  if kod=k then
   begin
    p:=1;
    gotoXY(1,whereY);write('|',kod:6);
    gotoXY(10,whereY);write('| ',naz);
    gotoXY(26,whereY);write('|',cen:7:2);
    gotoXY(35,whereY);write('| ',vid);
    gotoXY(46,whereY);writeln('|');
   end;
 end;
close(f);
writeln('----------------------------------------------');
if p=0 then write('Блюд с таким кодом нет');
readln
end;
procedure Naimenovanie(var f:tfile);
var z:menu;
    s:string;
    p:integer;
begin
clrscr;
writeln('Введите наименование блюда');
read(s);
reset(f);
writeln('Блюда с наименованием ',s);
Zagl;
p:=0;
while not eof(f)do
 begin
  read(f,z);
  with z do
  if naz=s then
   begin
    p:=1;
    gotoXY(1,whereY);write('|',kod:6);
    gotoXY(10,whereY);write('| ',naz);
    gotoXY(26,whereY);write('|',cen:7:2);
    gotoXY(35,whereY);write('| ',vid);
    gotoXY(46,whereY);writeln('|');
   end;
 end;
close(f);
writeln('----------------------------------------------');
if p=0 then write('Блюд с таким наименованием нет');
readln
end;
procedure Cena(var f:tfile);
var z:menu;
    s1,s2:string;
    k1,k2:real;
    c,p:integer;
begin
clrscr;
p:=0;
repeat
write('Введите нижний предел цены, вещественное число k1=');
read(s1);
val(s1,k1,c);
if c<>0 then p:=1;
write('Введите верхний предел цены, вещественное число k2>',k1:0:2,' k2=');
read(s2);
val(s2,k2,c);
if c<>0 then p:=1;
if (p=1)or(k1>=k2) then
writeln('Вы ввели неверные данные, повторите ввод');
until (p=0)and(k2>k1);
reset(f);
writeln('Блюда с ценой от ',k1:0:2,' до ',k2:0:2);
Zagl;
p:=0;
while not eof(f)do
 begin
  read(f,z);
  with z do
  if (cen>=k1)and(cen<=k2) then
   begin
    p:=1;
    gotoXY(1,whereY);write('|',kod:6);
    gotoXY(10,whereY);write('| ',naz);
    gotoXY(26,whereY);write('|',cen:7:2);
    gotoXY(35,whereY);write('| ',vid);
    gotoXY(46,whereY);writeln('|');
   end;
 end;
close(f);
writeln('----------------------------------------------');
if p=0 then write('Блюд с такими ценами нет');
readln
end;
procedure Vid(var f:tfile);
var z:menu;
    s:string;
    p:integer;
begin
clrscr;
writeln('Введите вид блюда');
read(s);
reset(f);
writeln('Блюда вида ',s);
Zagl;
p:=0;
while not eof(f)do
 begin
  read(f,z);
  with z do
  if vid=s then
   begin
    p:=1;
    gotoXY(1,whereY);write('|',kod:6);
    gotoXY(10,whereY);write('| ',naz);
    gotoXY(26,whereY);write('|',cen:7:2);
    gotoXY(35,whereY);write('| ',vid);
    gotoXY(46,whereY);writeln('|');
   end;
 end;
close(f);
writeln('----------------------------------------------');
if p=0 then write('Блюд такого вида нет');
readln
end;
var f:tfile;
    w:byte;
begin
Vvod(f);
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-показать все меню');
writeln('2-поиск по коду');
writeln('3-поиск по наименованию');
writeln('4-поиск по цене');
writeln('5-поиск по виду');
writeln('6-выход');
repeat
read(w);
until w in [1..6];
case w of
1:Vyvod(f);
2:Kod(f);
3:Naimenovanie(f);
4:Cena(f);
5:Vid(f);
6:exit;
end;
until w=6;
end.