Паскаль, записи

[Dean]

здравствуйте, программисты! не могли бы вы помочь доделать одну задачку?
Известен рост каждого из 25 учеников класса. Ни одна пара учеников не имеет одинакового роста. Определить фамилии:
а) самого высокого и самого низкого учеников класса;
б) двух учеников, являющихся самыми высокими после самого высокого в классе.
наработки вот есть, нужно добить:

Program MyProg1;
uses crt;
type
tablica=record
fio:string[10];
rost:real;
end;
var
i,n:integer;
mas:array[1..25] of tablica;
begin
Writeln('Количество учеников в классе');
Readln(n);
for i:=1 to n do
with mas[i] do begin
Write('Введите рост',' ',i,'-го ученика  ');
Readln(rost);
end;
end.

заранее спасибо!

[GetMax]

Type
  tablica=record
                fio:string[10];
                rost:Integer;
             end;
var
i,n,maxrost,imax,number2,number3,i1,i2:integer;
mas:array[1..25] of tablica;
begin
  Writeln('Количество учеников в классе');
  Readln(n);
  for i:=1 to n do
  with mas[i] do
  begin
    Write('Введите fam',' ',i,'-го ученика  ');
    Readln(Fio);
    Write('Введите в см рост',' ',i,'-го ученика  ');
    Readln(rost);
  end;
  Maxrost:=0;
  Number2:=0;
  Number3:=0;
  For i:=1 to N do With Mas[i] do
  Begin
    If Mas[i].rost > Maxrost then
    Begin
      Maxrost:=Mas[i].rost;
      Imax:=i
    End;
  End;
  For i:=1 to N do with Mas[i] do
  Begin
    If (Mas[i].rost <= Maxrost) and (Mas[i].rost > Number2) and (Mas[i].rost > Number3) and (i <> Imax) then
    Begin
      Number2:=Mas[i].rost;
      i1:=i
    End;
  End;
  For i:=1 to N do With Mas[i] do
  Begin
    If (Mas[i].rost < Maxrost) and (Mas[i].rost <= Number2) and (Mas[i].rost > Number3) and (i <> i1) then
    Begin
      Number3:=Mas[i].rost;
      i2:=i
    End;
  End;
  Writeln('Самый высокий в классе: ',Mas[imax].fio);
  Writeln('На 2-ом месте: ',Mas[i1].fio);
  Writeln('На 3-ем месте: ',Mas[i2].fio);
  Readln
End.

[Dean]

огромное спасибо!