Создать массив записей, содержащих сведения об автопарке предприятия

type
  avto=record
    marka_avto: string[20];
    gos_nomer: char;
    god_vypuska: integer;
    probeg: integer;
    data_remonta: integer;
    rashod_topliva: integer;
    probeg_za_mes: integer;
    kol_gryzov: integer;
  end;
 
var
  a: array[1..50] of avto;
  n,i: integer;
  kol_gruzov_za_mes: integer;
  chyslo_avto: integer;
  
begin
  write('Введите количество автомашин в автопарке ');
  readln(n);
  writeln('Введите данные по студентам:');
  for i:=1 to n do
  begin
    writeln('  ',i,'-я автомашина:');
    
    with a[i] do
    begin
      write('    Марка: ');
      readln(marka_avto);
      write('    Госномер: ');
      readln(gos_nomer);
      write('    Год выпуска: ');
      readln(god_vypuska);
      write('    Пробег: ');
      readln(probeg);
      write('    Дата ремонта: ');
      readln(data_remonta);
      write('    Расход топлива за месяц: ');
      readln(rashod_topliva);
      write('    Пробег за месяц: ');
      readln(probeg_za_mes);
      write('    Количество грузов/пассажиров: ');
      readln(kol_gryzov);
    end;
  end;
  readln;
end.