Введите данные в массив о N числа туристов

[Fantoms01]

Парни нужна помощь а то у меня зачет а прогу не могу сделать!
Задание такое! Введите данные в массив о N числа туристов. Если известны их Фамилия, Пол, Возраст, найти самого старшего и вывести его на экран, и вывести на экран всех туристов возраст которых больше среднего. Масив необходимо записать в Фаил. И сделать меню из пунктов
1) Добавление туристов в фаил
2) Нахождение самого старшего
3) Туристы возраст которых выше среднего

Вот мои наброски но почемуто прога не работает

program poxod;
type
tyrist=record
fam:string[20];
pol:string[10];
vozr:integer;
end;

var
pox: array[1..40] of tyrist;
c:tyrist;
b: char;



var fil: file of tyrist;
filename: string[12];
tur:tyrist;
a: char;
i,n,m: integer;



procedure newfile;
begin
write ('vvedite name fila:');
readln (filename);
assign (fil, filename);
rewrite (fil);
end;

procedure openfile;
begin
write ('vvedite name file:');
readln (filename);
assign (fil, filename);
reset (fil);

end;

procedure vvod;
var
b: char;
i,n,m,d:integer;
k:real;
begin
newfile;

writeln('skolko vsego tyristov');
readln(n);
writeln('vv dannue po kazhdomy tyristy');
for i:=1 to n do
with pox[i] do begin
write('vv familiu',i,'tyrista');
readln(fam);
write('vv pol',i,'tyrista');
readln(pol);
writeln('vv vozrast',i,'tyrista');
readln(vozr);
readln;
end;
write(fil,tur);
writeln('turistov v faile ',filesize(fil));
end;



procedure star;

begin
for i:=1 to n-1 do Begin
for m:=i to n do
if pox[i]. vozr>pox[m].vozr then begin
c:=pox[i];
pox[i]:=pox[m];
pox[m]:=c;
readln;
end;
end;
end;

procedure sred;
var d,c:integer;
k:real;
begin
writeln(pox[n].fam:20,pox[n].pol:10,pox[n].vozr:3);
d:=0;
for i:=1 to n do
d:=pox[i].vozr+d;
k:=d/n;
writeln('srednii vozrast',k:2:2);
for i:=1 to n do
if pox[i].vozr>k then writeln(pox[i].fam:20,pox[i].pol:10,pox[i].vozr:3);
readln;
end;

procedure menu2;

var d:char;
begin
writeln ('1.vvod famili');
writeln ('2.poisk samogo starhego');
writeln ('3.poisk srednego vozrasta');

writeln ('vvedite nomer trebuemogo deistvia, i najmite ENTER');
readln(a);
case a of
'1': begin
vvod;
close(fil);
menu2;
end;

'2': begin
openfile;
star;
menu2;
end;

'3': begin
openfile;
sred;
menu2;
end;

else writeln ('nekorrektny vvod! perezapustite programmu!');
end;
end;




begin

writeln ('1.rabota s bazoi');
writeln ('2.Vihod');

writeln ('vvedite nomer trebuemogo deistvia, i najmite ENTER');
readln(b);
case b of
'1': begin
menu2;
end;

else writeln ('nekorrektny vvod! perezapustite programmu!');
end;
end.

Помогите плиз а то экзамены скоро и эта хрень весит!

[madmot]

твой код просмотрел бегло, вот, когда-то делал примерно такую же работу, почитай мож поможет

[Fantoms01]

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

твой код просмотрел бегло, вот, когда-то делал примерно такую же работу, почитай мож поможет

Конечно спасибо но в паскале я колом! так что мне бы кто нибудь мою сделал бы!

[Fantoms01]

народ ну помагите кто может!