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

[Vitalij1]

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

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

[Stilet]

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

type
 avto=record
  marka,nomer,fio:String;
 end;
var a:array[1..10] of avto;i:integer;s:string;

Ввод данных:

for i:=1 to 10 do begin
 write('Марка: ');readln(a[i].marka);
 write('Номер: ');readln(a[i].nomer);
 write('Фио: ');readln(a[i].fio);
end;

Найти фамилии владельцев и номера автомобилей данной марки.

write('Марка: ');readln(s);

for i:=1 to 10 do begin if s<>a[i].marka then Continue;
 write('Марка: ');readln(a[i].marka);
 write('Номер: ');readln(a[i].nomer);
 write('Фио: ');readln(a[i].fio);
end;

Идея ясна?

[Vitalij1]

Да, но почему s<>a[i].marka ? Мы же выводим на экран, если марка совпадает => if s=a[i].marka ?

[min@y™]

Мы же выводим на экран, если марка совпадает

после continue допиши else begin

[type_Oleg]

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

Да, но почему s<>a[i].marka ? Мы же выводим на экран, если марка совпадает => if s=a[i].marka ?

Потому что

then Continue;

Знаете, что значит Continue в цикле ?

[Vitalij1]

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.

Вот целый код программы, вдруг кому-то пригодится;
Про continue не знаю, видимо, поэтому и немного недопонял Вас.
А за то, что навели на правильный ход мыслей, премного Вам благодарен !)

[type_Oleg]

Кстати, в заголовке - "Файлы и записи в Паскаль"
Здесь, правда нет сохранения/открытия файлов.
Но если надо записи хранить в типизированном файле, то вместо

mar,nom,fio:string

надо будет например так

mar,nom,fio:string[20]

Не обязательно все по 20, можно разной длины. Но обязательно длину указать, иначе в файл не запишется.

[Stilet]

после continue допиши else begin

Не надо...

Про continue не знаю, видимо, поэтому и немного недопонял Вас.

Это означает "Забить на остальные операторы цикла, и крутнуть его следующую итерацию."

[Vitalij1]

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

Кстати, в заголовке - "Файлы и записи в Паскаль"
Здесь, правда нет сохранения/открытия файлов.
Но если надо записи хранить в типизированном файле, то вместо

mar,nom,fio:string

надо будет например так

mar,nom,fio:string[20]

Не обязательно все по 20, можно разной длины. Но обязательно длину указать, иначе в файл не запишется.

Здесь файлы не используются, мой косяк, просто используются некие сведения. (в файл мы их не пихаем).