В баскетбольную команду могут быть приняты ученики, рост которых превышает 170 см. Составьте список кандидатов в команду из учеников класса — Pascal(Паскаль)

{     Пример 2.3. В баскетбольную команду могут быть приняты ученики,
                   рост которых превышает 170 см. Составьте список
                     кандидатов в команду из учеников класса.

                               Система тестов
        ╔═════╦═════════════╦══════════╤═════════╤══════╦════════════╗
        ║Номер║ Проверяемый ║  Число   │ Фамилия │ Рост ║ Результаты ║
        ║теста║   случай    ║ учеников │         │      ║            ║
        ╠═════╬═════════════╬══════════╪═════════╪══════╬════════════╣
        ║  1  ║    Eсть     ║    3     │ Кулов   │ 171  ║   Кулов    ║
        ║     ║  кандидаты  ║          │ Чехин   │ 165  ║   Уваров   ║
        ║     ║             ║          │ Уваров  │ 178  ║            ║
        ╟─────╫─────────────╫──────────┼─────────┼──────╫────────────╢
        ║  2  ║     Нет     ║    2     │ Ершов   │ 170  ║    Нет     ║
        ║     ║ кандидатов  ║          │ Иванов  │ 165  ║ кандидатов ║
        ╚═════╩═════════════╩══════════╧═════════╧══════╩════════════╝
}
Program BascetBall;
  Uses Crt;
  Var
     SurName : Array [1..30] of String;  { фамилии учеников }
     Height  : Array [1..30] of Real;    { рост учеников }
     Cand    : Array [1..30] of String;  { фамилии кандидатов }
     NPupil, i, K : Integer;             { NPupil - число учеников,
                                           K - количество зачисленных}
BEGIN ClrScr;
  Write('В КОМАНДУ ЗАЧИСЛЯЮТСЯ УЧЕНИКИ, ');
  WriteLn('РОСТ КОТОРЫХ ПРЕВЫШАЕТ 170 СМ.'); WriteLn;
  Write('Сколько всего учеников ? ');
  ReadLn(NPupil);

  WriteLn('Введите фамилии и рост учеников :');
  For i := 1 to NPupil do
    begin Write(i, '. Фамилия - '); ReadLn(SurName[i]);
          Write('   Рост - ');    ReadLn(Height[i]);
    end; WriteLn;

  K:=0; { Составление списка команды }
  For i := 1 to NPupil do
    If Height[i]>170 then
      begin K:=K+1; Cand[K] := SurName[i] end;

  If K=0 then WriteLn('В КЛАССЕ НЕТ КАНДИДАТОВ В КОМАНДУ.')
    else
      begin WriteLn('КАНДИДАТЫ В БАСКЕТБОЛЬНУЮ КОМАНДУ :');
            For i := 1 to K do WriteLn( i, '. ' , Cand[i]);
      end;
  ReadLn
END.