Записи и файлы

[locdoc]

Сведения об автомобиле состоят из марки,номера и фамилии владельца.Дан файл f, содержащий сведения о нескольких автомобилях!Найти фамилии владельцев и номера автомобилей данной марки!!!Народ помогите!!!

[Mad_Cat]

for i:=1 to kol_auto do begin
if auto[i].mark='Данная' then write(auto[i].Fio,'  ',auto[i].num);
writeln
end;

[locdoc]

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

for i:=1 to kol_auto do begin
if auto[i].mark='Данная' then write(auto[i].Fio,'  ',auto[i].num);
writeln
end;

вот я решил программу

Program avtomobily;
type spisok=record
familiya:string;
nomer:integer;
marka:string;
end;
var svedeniya:File of spisok;
s:spisok;
n,i,k:byte;
MAR:string;
begin
assign(svedeniya,'F');
rewrite(svedeniya);
write('kolichestvo vladelcev?');
readln(n);
for i:=1 to n do
begin
write(i:1,'-й,familia');
readln(s.familiya);
write('nomer avtomobilya:');
readln(s.nomer);
write('marka avtomobilya:');
readln(s.marka);
write(svedeniya,s);
end;
writeln('formirovanie faila zakoncheno!');
close(svedeniya);
writeln('Vvedite marku:');
readln(MAR);
writeln('Владельцы марки ',MAR);
k:=0;
reset(svedeniya);
while not eof(svedeniya) do
begin
read(svedeniya,s);
if s.marka=MAR then
begin
k:=1;
writeln(s.familiya);
end;
end;
close(svedeniya);
if k =0 then writeln('Владельцев этой марки нет.');
readln;
end.

помогите с блок-схемой!!!!