Нууу, предположу что всего 10 машин, программа будет правильна, потом можешь изменить, смотря для чего нужна.
mod(10), col(10) as string
god(10), zen(10),i as integer
Формирование массивов из машин:
for i=1 to 10
read(mod(i)) - Вводим модель
read(col(i)) - цвет
read(god(i)) - год выпуска
read(zen(i)) - цену
next
Нахождение:
for i=1 to 10
if col(i)="Красный" and god(i)=2000 then
write(mod(i));
end.