Помогите дописать и исправить ошибку в задаче

[Vladislav_87]

Используя тип данных <<массив записей>> создать информационную
систему, с помощью которой можно ввести в память данные о наличии в магазине
автомобилей различных фирм -производителей, марки, года выпуска и цены.
Должна быть обеспечена возможность получить информацию об
автомбилях по запросу по одному или одновременно по нескольким критериям:
фирма-производитель, марка автомобиля, год выпуска цена.



program zad_18;
uses Crt;
const n=10;
type avto=record
marka:string[30];
year,price,kolir:integer;
end;
var a1:array[1..7] of avto;
i:integer;
begin clrscr;
for i:=1 to 7 do
with a1[i] do
begin
writeln('lada:'); readln(marka);
writeln('2001:'); readln(year);
writeln('5000:'); readln(price);
writeln('chervona:'); readln(kolir);
end;
writeln;
writeln('Firma proponye taki mashini:');
for i:=1 to 7 do
with a1[i] do writeln(marka:15,year:50,'$',price) ;
writeln;
write('Rozdrykykyemo informatsiju pro mawini,');
writeln('tsina jakix mensha,nizh $5000:');
for i:=1 to 7 do
with a1[i] do
if kolir=1 then writeln(marka:15,kolir);
readln
end.

[ShnapS]

Вот код ввода данных о машинах:

program zad_18;
uses Crt;
const
n=10;
type
avto=record
marka:string[30];
year:integer;
price:longint;
kolir:string[30];
end;
var
A:array[1..n] of avto;
i:integer;
begin
clrscr;
writeln ('Заполнение массива:*');
for i:=1 to n do begin
write('Введите марку машины: ');readln(A[i].marka);
write('Введите год выпуска: ');readln(A[i].year);
write('Введите цену: ');readln(A[i].price);
write('Введите цвет: ');readln(A[i].kolir);
end;
writeln;
writeln ('В магазине есть такие машины: ');
writeln;
for i:=1 to n do
with a[i] do
writeln(marka:10,year:10,price:10,kolir:10);

end.

[Vladislav_87]

ShnapS - БОЛЬШОЕ СПАСИБО НО НЕ ПОЛУЧАЕТЬСЯ с компиялтором не запускал почему??

[Vladislav_87]

кого может помочь мне немного!

Ни вопросов,ни ответов.Просто рапечатка информации в массиве записей,и то не об автомобилях,а о компьютерах!

[ShnapS]

Сообщение от Vladislav_87

кого может помочь мне немного!

Ни вопросов,ни ответов.Просто рапечатка информации в массиве записей,и то не об автомобилях,а о компьютерах!

Я тебе просто навёл пример записи в массив, с которого тебе нужно будет начинать делать дальнейшие условия задачи.

[Vladislav_87]

program zad_18;   
uses Crt;   
const   
n=10;   
type   
avto=record   
marka:string[30];   
year:integer;   
price:longint;   
kolir:string[30];   
end;   
var   
A:array[1..n] of avto;   
i:integer;   
begin   
clrscr;   
writeln ('Заполнение массива:*');   
for i:=1 to n do begin   
write('Введите марку машины: ');readln(A[i].marka);   
write('Введите год выпуска: ');readln(A[i].year);   
write('Введите цену: ');readln(A[i].price);   
write('Введите цвет: ');readln(A[i].kolir);   
end;   
writeln;   
writeln ('В магазине есть такие машины: ');   
writeln;   
for i:=1 to n do   
with a[i] do   
writeln(marka:10,year:10,price:10,kolir:10);   
  
end.

чего у меня не работает