Файлы и записи в Паскаль ! Возникает трудность в решении задачи, Записи в Паскале. Опции

[Vitalik]

Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Найти фамилии владельцев и номера автомобилей данной марки.

{Не получается правильно составить алгоритм. Прошу помочь}

[Федосеев Павел]

Это твоя программа после обработки JCF. Пришлось только добавить строку program иначе JCF не обрабатывает.
Правда читабельнее выглядит?

Код

program Marka;

const
  n = 3;
type
  avto = record
    mar, nom, fio: string
  end;

var
  a: array[1..n] of avto;
  mark: string;
  k, i: integer;
begin
  for i := 1 to n do
  begin
    Write('Введите марку автомобиля: ');
    readln(a[i].mar);
    Write('Введите номер автомобиля: ');
    readln(a[i].nom);
    Write('Введите фамилию владельца: ');
    readln(a[i].fio);
    writeln;
  end;
  Write('Введите требуемую марку автомобиля: ');
  Read(mark);
  k := 0;
  for i := 1 to n do
    if a[i].mar = mark then
    begin
      writeln('ФИО: ', a[i].fio, '; ', 'Номер: ', a[i].nom);
      k := 1;
    end;
  writeln;
  if k = 0 then
    Write('Нет автомобилей данной марки');
end.

Сообщение отредактировано: Федосеев Павел - 26.02.2015 17:36