pascal02

Procedure AddAutos(var Cars: tCars); // добавить авто
Var
i,j: integer;
auto: tAuto;
begin

Writeln('Введите марку: ');
readln(auto.Mark);
Writeln('Введите модель: ');
readln(auto.Model);
Writeln('Введите цвет: ');
readln(auto.Colour);
Writeln('Введите цену: ');
readln(auto.Price);
for j := 1 to 3 do begin
Writeln('Введите номер: ');
readln(auto.Options[j].ID);
Writeln('Введите название опции: ');
readln(auto.Options[j].Name);
end;

Setlength(Cars, length(cars)+1);
Cars[length(cars)-1] := auto;
end;