найти в файле записей самого старого служащего, проживающего на заданной улице.

[engl]

Нужно сформировать файл записей,имеющий заданную структуру




И найти в нем самого старого служащего,проживающего на заданной улице.

type employee=record
fio:record
dat:record
fam,im,ot:string;
end;
end;
adress:record
street,house,flat,year,month,day:integer;
end;
end;
var
f:file of employee;
name:string;
group:array[1..30] of employee;
i,i1,n,n1:integer;
function old(n:integer;var group:array[1..20] of employee):integer;
var i,i1,pr,max:integer;
begin
max:=0;i:=0;
for i:=1 to n do begin
with group[i],dat do begin
pr:=10000*year+100*month+day;
if pr<max then begin
max:=pr;
i1:=i;
end;
end;
end;
old:=i1;
end;
begin // osn prog
assign(f,'f1.text');
rewrite(f);
writeln('введите число служащих');
readln(n);
writeln('введите данные о служащих);
for i:=1 to n do
begin
with group[i] do begin
with fio do begin
write('фамилия');readln(fam);
end;
with dat do begin
write(год:');readln(year);
end;
end;
with adress do begin
write('улица');readln(street);
end;
write(f,group[i]);
end;
close(f);
reset(f);
for i:=1 to n do
read(f,group[i]);
i1:=old(n,group);
writeln('самый старый служащий');
writeln('фамилия:',group[i1].fio.fam);
close(f);
end.

Вот моя наработка.

[Alar]

engl, как вы заметили картинки надо грузить на форум. а не на левые файлообменники, что зафильтрованы.

[Utkin]

А где объявление записей fio и dat?

[engl]

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

А где объявление записей fio и dat?

В функции?

[IT-man]

В функции?

Нет! В самой проге

[engl]

Сообщение от IT-man

Нет! В самой проге

Я теряюсь,не могли бы вы подсказать,где именно я не поставил объявление?