Сведения об автомобиле состоят из его марки, номера и фамилии владельца. Даны сведения о нескольких автомобилях. Найти фамилии владельцев и номера автомобилей данной марки. — Pascal(Паскаль)

type
  auto = record
    mark: string[25];
    nomer: string[15];
    fam: string[25];
  end;

var
  a: array [1 .. 15] of auto;
  s: string;
  n, i: integer;

begin
  write(' kol-vo zapisei =');
  readln(n);
  for i := 1 to n do
    with a[i] do
    begin
      write('marka avto ');
      readln(mark);
      write('nomer avto ');
      readln(nomer);
      write('familia vladelca ');
      readln(fam);
      writeln;
    end;
  write('vvedite marku avto ');
  readln(s);
  for i := 1 to n do
    with a[i] do
    begin
      if s = mark then
      begin
        writeln;
        writeln('nomer avto', nomer);
        writeln('familia', fam);
      end;
    end;
  readln;

end.