Задача с массивом данных

[Василий15]

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;
    kol_gruzov_za_mes: integer;
    end;
 
var
  a: array[1..50] of avto;
  n,i: 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;
  
  writeln('Число авто, ремонтировавшихся более 3-х лет назад:');
   chyslo_avto:=0;
   for i:=1 to n do 
    begin
    if (a[i].data_remonta<2013) then 
      begin
        with a[i] do 
         begin
          chyslo_avto:=chyslo_avto+1;
         end;
      end;
     end;
    writeln(chyslo_avto);
 
  writeln('Количество перевезенных за месяц грузов/пассажиров:');
   kol_gruzov_za_mes:=0;
   for i:=1 to n do 
   begin
   kol_gruzov_za_mes:=kol_gruzov_za_mes+a[i].kol_gryzov;
   end;
  writeln(kol_gruzov_za_mes);
   
end.

Ребят, помогите вывести общее кол-во перевезенных грузов/пассажиров (последний блок).

[Serge_Bliznykov]

может быть, так:

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_gruzov_za_mes: integer;
    end;
 
var
  a: array[1..50] of avto;
  n,i: integer;
  chyslo_avto,
  vsego_gruzov_za_mes : 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_gruzov_za_mes);
    end;
    
  end;
  
  writeln('Число авто, ремонтировавшихся более 3-х лет назад:');
   chyslo_avto:=0;
   for i:=1 to n do 
    begin
    if (a[i].data_remonta<2013) then 
      begin
        with a[i] do 
         begin
          chyslo_avto:=chyslo_avto+1;
         end;
      end;
     end;
    writeln(chyslo_avto);
 
   writeln('Количество перевезенных за месяц грузов/пассажиров:');
   vsego_gruzov_za_mes:=0;
   for i:=1 to n do 
   begin
     vsego_gruzov_za_mes:=vsego_gruzov_za_mes+a[i].kol_gruzov_za_mes;
   end;
   writeln(vsego_gruzov_za_mes);
   
end.

[Василий15]

Спасибо большое.

[Serge_Bliznykov]

пожалуйста!

1) при подсчёте числа автомобилей с ремонтом более 3-х лет
лишнее with a[i] do

сравните:

  writeln('Число авто, ремонтировавшихся более 3-х лет назад:');
   chyslo_avto:=0;
   for i:=1 to n do 
      if (a[i].data_remonta<2013) then 
             chyslo_avto:=chyslo_avto+1; {или, лучше, Inc(chyslo_avto);  }
   writeln(chyslo_avto);

2)

write(' Дата ремонта: ');
readln(data_remonta);

тут корректнее говорить не о дате ремонта, а о ГОДЕ ремонта.
или нужно дату описывать по другому (как день, месяц, год)

[Василий15]

Благодарю за пояснения.