Запись

uses crt;
const n=25;{/ для тестирования возьмите меньше, да и на экран с учетом заголовка войдет 23}
type
uchenik=record{тип запись ученик}
        fam:string[20];{фамилия}
        rst:byte;{рост}
        end;
var z:array[1..n] of uchenik;{масив записей}
    r:uchenik;{буфер для сортировки обменом}
    m:set of byte;{множество чисел типа byte для проверки, был такой рост, или нет}
    i,j:byte;
begin
clrscr;
writeln('Введите данные об учениках:');
m:=[];{пока чисел нет}
for i:=1 to n do
 begin
  writeln('Ученик ',i);
  write(' фамилия: ');readln(z[i].fam);
  repeat
   write(' рост (от 100 до 200): ');readln(z[i].rst);
  until not(z[i].rst in m)and(z[i].rst in [100..200]);{если уже было, повторяем}
  m:=m+[z[i].rst];{если не было, добавляем}
 end;
for i:=1 to n-1 do{сортировка массива пузырьком по полю записей "рост"}
for j:=i+1 to n do
if z[i].rst>z[j].rst then
 begin
  r:=z[i];
  z[i]:=z[j];
  z[j]:=r;
 end;
clrscr;
writeln('Список учеников по росту:');
for i:=1 to n do
 begin
  write(z[i].fam);
  gotoxy(15,wherey);{отступаем от края строки на 15 позиций, чтоб ровно выводило}
  write(z[i].rst);
  writeln;
 end;
readln
end.