Типизированный файл, Задача Опции

[-Анюта-]

Люди, пожалуйста, помогите решить задачу! Угроза недопуска к экзаменам


Организовать типизированный файл, в котором находятся данные об участниках соревнований по многоборью: фамилия, имя, страна, массив результатов. Найти победителя – участника, набравшего наибольшее количество баллов. Напишите встроенную подпрограмму-процедуру для организации безопасного ввода фамилии и имени участника, а также страны.

[Гость]

Попыталась решить - вот что получилось:

Код

type
base=record
fam, name, strana:string;
rez:real;
end;
var
igrok:array[1..10] of base;
i,p:integer;
begin
writeln('‚ўҐ¤ЁвҐ ¤ ­­лҐ ®Ў гз бв­ЁЄ е б®аҐў­®ў ­Ё©');
for i:=1 to 10 do
with igrok[i] do begin
writeln ('‚ўҐ¤ЁвҐ д ¬Ё«Ёо гз бв­ЁЄ ');
readln(fam);
Writeln ('‚ўҐ¤ЁвҐ Ё¬п гз бв­ЁЄ ');
readln(name);
Writeln('‚ўҐ¤ЁвҐ бва ­г. Є®в®аго ЇаҐ¤бв ў«пҐв гз бв­ЁЄ');
readln (strana);
writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® Ў ««®ў, ­ Ўа ­­ле гз бв­ЁЄ®¬');
readln(rez);
end;
writeln('€Ја®Є. ­ Ўа ўиЁ© ­ ЁЎ®«м襥 Є®«ЁзҐбвў® Ў ««®ў:');
for i:=1 to 10 do
with igrok[i] do begin
rez:=p;
for i:=1 to 10 do
with igrok[i] do begin
if rez>p then
rez:=p;
end;
writeln (fam,' ',name, ' -  ',strana);
end;
readln
end.

Но что-то в концовке не получается, плюс несмогла придумать подпрограмму-процедуру. Если кому нетрудно - пожалуйста, помогите.
Заранее благодарна.
Анюта.

Сообщение отредактировано: GoodWind - 12.12.2005 22:43