проблемы с поиском

[vIRTx]

Привет всем! Если у вас есть свободное время помогите пожалуйста с решением!
Я пытался сам решить но никак не выходит(((
Начало есть но с поиском проблемы…

program sp;
uses crt;
 type
   sport = record
    num:byte;
    name,strana:string[30];
    rez:real;
   end;
var
m:array[1..100] of sport;
i,j,k,l:integer;

procedure zZ;
begin
 write('vvedite koli4estvo u4astnikov sorevnovanii');
  readln(k);
   for i:=1 to k do
    with m[i] do
     begin
       write('vedite nomer u4astnika');
       readln(num);
       write('vvedite familiu');
       readln(name);
       write('vvedite stranu');
       readln(strana);
       write('pokazanii rezyltat');
       readln(rez);
     end;
   end;

Мне нужно вывести на экран 3 лучших участника по результатам!
надеюсь кто-нибудь поможет!

[vIRTx]

могу вывести только в порядке ухудшения…

[-=<[Evklidd]>=-]

Вот полный код:

program sp;
uses crt;
type
 sport = record
  num:byte;
  name,strana:string[30];
  rez:real;
 end;
 var
 m: array[1..100] of sport;
 i,j,k,l:integer;
 u: sport;
begin
 write('vvedite koli4estvo u4astnikov sorevnovanii: ');
 readln(k);
 for i:=1 to k do
 with m[i] do
  begin
   write('vedite nomer u4astnika: ');
   readln(num);
   write('vvedite familiu: ');
   readln(name);
   write('vvedite stranu: ');
   readln(strana);
   write('pokazanii rezyltat: ');
   readln(rez);
 end;
 for i:= 1 to k-1 do
  for j:= 1 to k-i do
   begin
    if m[j].rez >= m[j+1].rez then
     begin
      u:= m[j];
      m[j]:= m[j+1];
      m[j+1]:= u;
     end;
   end;
 writeln('3 uchastnika s lucshimi rezultatami: ');
 j:= 3;
 for i:= k-2 to k do
  begin
   with m[i] do
    writeln(j,'mesto',num,'-ui nomer ', name,' iz ', strana, ' s rezultatom: ', rez);
   dec(j);
  end; 
 readln;
end.

[vIRTx]

Огромное спасибо! Очень выручил! Я пытался решить у меня код был в 2 раза длиннее и с ошибками…

[vIRTx]

Как можно переделать чтобы в конце появилось меню:
нажмите 1 для просмотра данных спортсмена который занял первое место;
нажмите 2 для просмотра данных спортсмена который занял второе место;
нажмите 3 для просмотра данных спортсмена который занял третье место;

тут нужно использовать case ??

[Stilet]

тут нужно использовать case ??

Вполне. После ввода в переменку числа проверяй его в Case

[vIRTx]

можешь показать как это записать?
я запутался ппц(((

[Stilet]

Могу. Читай тут:http://programmersforum.ru/showthrea...rd+fourth+0%27

Это получше чем просто цифрами вводить...

[vIRTx]

Могу. Читай тут:http://programmersforum.ru/showthrea...rd+fourth+0%27

Это не подходит, спасибо за помощь

[eoln]

var mst: byte;
...
repeat
  write('1 mest - 1       2 mesto - 2       3 mesto - 3      exit - 0    ');
  readln(mst);
  with m[k+1-mst] do
  writeln(mst,'mesto',num,'-ui nomer ', name,' iz ', strana, ' s rezultatom: ', rez);
until mst=0 //выход по нажатию нуля