Описать сведения об автомобилях

Program Zad_auto;
uses crt;
type auto=record
          nom:byte;
          mar:string[20];
          god:2000..2010;
          kol:word;
          cen:longint;
          str:string[30];
          prob:LongInt;
          end;
          Var w,l:Integer;
     f:file of auto;
procedure WriteFile{(var f:fail)};
var a:auto;
    n:byte;
    c:char;
begin
assign(f,'z:\auto.dat');
rewrite(f);
writeln('Vvedite dannie ob avtomobilyah:');
n:=0;
repeat
n:=n+1;
with a do
 begin
  nom:=n;
  write('Marka: ');readln(mar);
  repeat
  write(' God vipyska(1990-2010): ');readln(god);
  until (god>1989)and(god<2011);
  write(' Kolichestvo: ');readln(kol);
  write(' Cena: ');readln(cen);
  Write(' Strana: '); readln(str);
  Write(' Probeg: ');readln(prob);
  write(f,a);
  Writeln('Dlya prodolzhenie nazhmite "Enter"');
  Readln;
   end;
c:=readkey;
until c=#27;
clrscr;
close(f);
end;
procedure ReadFile{(var f:fail)};
var a:auto;
begin
assign(f,'z:\auto.dat');
reset(f);
Textcolor(14);
writeln('Spisok avtomobilei:':35);
writeln; TextColor(14);
writeln('--------------------------------------------------------------------');
writeln('| Pn  |   Marka   |  God  | Kol-vo |   Cena  | Strana    |  Probeg |');
writeln('--------------------------------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('|',nom:3);
    gotoXY(7,whereY);write('| ',mar);
    gotoXY(19,whereY);write('| ',god);
    gotoXY(27,whereY);write('|',kol:6);
    gotoXY(36,whereY);write('| ',cen:7);
    gotoXY(46,whereY);write('| ',str);
    gotoXY(58,whereY);Write('| ',prob:6);
    gotoXY(68,whereY);Writeln('|');
   end;
 end;
Writeln('--------------------------------------------------------------------');
close(f);
Writeln('Dlya prodolzheniya nazhmite "Enter"');
Readln;
end;
begin
l:=1;
While l<>0 do Begin
clrscr;
Writeln('Vibor:');
Writeln('1-Sozdanie novogo faila');
Writeln('2-Prosmotr syshestvyushego faila');
Writeln('3-Vihod');
Writeln('Vash vibor?');
Readln(w);
Case w of
1:WriteFile;
2:ReadFile;
3:l:=0;
end;
End;
end.