Выбрать из списка автовладельцев фамилию владельца, его адрес, госномер автомобиля " мерседес " белого цвета - Pascal

Формулировка задачи:

составить программу выбирающую из списка автовладельцев фамилию владельца, его адрес, госномер автомобиля " мерседес " белого цвета . помогите я на экз телефона вылез срочно плиз

________ помогите пожайлуста.

помогите пжл.!!

Решение задачи: «Выбрать из списка автовладельцев фамилию владельца, его адрес, госномер автомобиля " мерседес " белого цвета»

Листинг программы

uses crt;
type avto=record
          fam:string[20];
          adr:string[20];
          nom:string[20];
          mr:string[20];
          cl:string[20];
          end;
var sp:array[1..20]of avto;
    n,i,k:integer;
begin
clrscr;
write('Kolichestvo n=');readln(n);
for i:=1 to n do
    begin
      writeln('Avto ',i);
      write(' Familia: ');readln(sp[i].fam);
      write(' Adres: ');readln(sp[i].adr);
      write(' Nomer: ');readln(sp[i].nom);
      write(' Marka: ');readln(sp[i].mr);
      write(' Color: ');readln(sp[i].cl);
    end;
writeln;
writeln('Avto Mersedes belogo cveta:');
k:=0;
for i:=1 to n do
if (sp[i].cl='white')and(sp[i].mr='mersedes') then
 begin
  k:=1;
  writeln(sp[i].fam,' ',sp[i].adr,' ',sp[i].nom,' ',sp[i].mr,'  ',sp[i].cl);
 end;
if k=0 then write('Takogo net!');
readln;
end.

Объяснение кода листинга программы

Данный код на языке Pascal представляет собой программу для выбора из списка автовладельцев фамилию владельца, его адрес, госномер автомобиля Мерседес белого цвета. В коде используется тип данных avto, который представляет собой запись с полями для фамилии, адреса, номера автомобиля и цвета. Для работы с данными используется массив sp, который содержит экземпляры типа avto. Переменная n используется для определения количества автовладельцев в списке. Цикл for используется для вывода информации о каждом автовладельце. Переменная k используется для отслеживания индекса автовладельца с белым цветом автомобиля Мерседес. Если такой автовладелец найден, то выводится его информация. Если такого автовладельца нет, то выводится сообщение Такового нет!. Конечная строка программы представляет собой вывод сообщения Avto Mersedes belogo cveta:. Затем следует цикл for, который проверяет, есть ли в списке автовладельцев белый Мерседес. Если такой автовладелец найден, то выводится его информация. Если такого автовладельца нет, то выводится сообщение Такового нет!. В конце программы выводится символ новой строки.