Задача по записям. напечатайте информацию обо всех владельцах "Волг" черного цвета.

[Torres11]

Сведения о каждой машине включает в себя следующую информацию: модель (строка длиной 10 символов), номер (код региона, цифровой код, буквенный код), цвет, сведения о владельцах (ФИО), дата последнего техосмотра
Нужно
В) по номеру машины выдайте всю информацию о машине
Вот готовая

type auto = record
model:string[10]
num:string;
color:string;
fio:string;
date:string;
var au:array[1..N] of auto;
var i,count:integer;
temp:string;
begin
clrscr;
writeln('Введите количество');
readln(count);
for i:=1 to count do
begin
writeln('');readln(au[i].model);
writeln('');readln(au[i].num);
writeln('');readln(au[i].color);
writeln('');readln(au[i].fio);
writeln('');readln(au[i].date);
end;
 
writeln('');
readln(temp);
for i:=1 to count do
begin
if au[i].num=temp then
begin
writeln(au[i].model);
writeln(au[i].color);
writeln(au[i].fio);
writeln(au[i].date);
end;
end;
readkey;
end.

[Stilet]

if au[i].color=temp then
begin
writeln(au[i].fio);
end;

[Serge_Bliznykov]

ну, нужны же Волги. да и цвет вводить не надо, он задан.
примерно так я вижу решение:

WriteLn('Выборка по условиям: модель:  Волга, цвет автомобиля: Черный');
for i := 1 to count do
begin
  if (au[i].model = 'Волга') and (au[i].color = 'Черный') then
  begin
    writeln('госномер: ',au[i].num, ' фио владельца: ',au[i].fio,' дата ТО:', au[i].date);
  end;
end;

[Stilet]

Согласен. Про модель я забыл.

[Torres11]

Помогите пожалуйста,что то перестала считать.

[Torres11]

Пожалуйста помогите )

[_BYTE]

и что оно у тебя работает? просто у тебя record не закрыта end-ом

[Torres11]

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

и что оно у тебя работает? просто у тебя record не закрыта end-ом

Спасибо!
В итоге получилось так ,правда почему я немогу написать var au:array[1..n] of auto; (появляется ошибка)

[Stilet]

Пожалуйста помогите )

Так это... Серж то ответил на вопрос - бери и пользуйся.

[Аватар]

var au:array of auto;
...
n:=100;
SetLength(au,n);

циклы

for i:=0 to n-1 do ...

ADD фиг знает как оно для паскаля, это для дельфи