Разработать базу данных "Легковые автомобили". Вывести на экран данные обо всех автомобилях стоимостью менее 80 тысяч рублей

uses crt;
 
type
    lauto=record
                 marka:string[20];
                 zavod:string[20];
                 year:integer;
                 worth:integer;
             end;
    
var
buf: array [1..100] of lauto;
ch:char;
i,n:integer;
procedure vv(var buf:mas; var n:integer);
          var c:char;
          i:integer;
          begin
               i:=1;
               while c<>'n' do
                     begin
                          n:=1;
                          clrscr;
                          write('vvedite marku:       ');
                          readln(buf[i].marka);
                          write('vvedite zavod-izgotovitel:      ');
                          readln(buf[i].zavod);
                          write('vvedite god proizvodstva:      ');
                          readln(buf[i].year);
                          write('vvedite stoimost:     ');
                          readln(buf[i].worth);
                          writeln;
                          write('prodolgit? y/n: ');
                          inc(i);
                          readln(c);
                     end;
               end;
procedure vyvod(buf:mas;l,m:integer);
begin
for l:=1 to m do
    begin
         if buf[i].worth<80000 then
            begin
            writeln(buf[l].marka);
            writeln(buf[l].zavod);
            writeln(buf[l].year);
            writeln(buf[l].worth);
            readln;
            end;
    end;
end;
begin
while ch<>'3' do
      begin
      clrscr;
      gotoxy(30,9);writeln('==================');
      gotoxy(30,10);writeln('|1:vvod dannyh   |');
      gotoxy(30,11);writeln('|2:vyvesti spisok|');
      gotoxy(30,12);writeln('|3:vyhod         |');
      gotoxy(30,13);writeln('==================');
      gotoxy(5,22);write('vvedite nomer punkta menu i najmite Enter: ');
      readln(ch);
      case ch of
      '1':vv(buf,n);
      '2':vyvod(buf,n,i);
      end;
end;
end.