Программирование операций обработки данных типа запись

const
  n = 3;
 
type
  anketa = record
    FIO: string[128];
    POL: char; 
    Height: integer; 
  end;
 
var
  ch: char;
  student: array [1..n] of anketa;
 
procedure set_stud;
var
  i: integer;
begin
  for i := 1 to N do
    with student[i] do
    begin
      writeln('Введите сведения о ', i, ' студенте: ');
      write('Введите фамилию имя отчество: ');
      readln(FIO);
      write('Введите пол: ');
      readln(POL);
      write('Введите рост: ');
      readln(height);
    end;
end;
 
procedure Choose(ch: char);
var
  k, min, i: integer;
begin
  k := 0;
  for i := 1 to N do 
    if student[i].POL = ch  then 
    begin
      k := i;
      break;
    end;
  if k = 0 then
  begin
    writeln('Нет студентов с заданным полом.');
    exit;
  end;
  min := student[k].Height;
  for i := k to N do 
    with student[i] do 
    begin
      if POL = ch  then 
      begin
        if height < min then
        begin
          min := height;
          k := i;
        end;  
      end;
    end;
  Writeln(student[k].FIO);
end;
 
begin
  set_stud;
  write('Введите заданный пол: ');
  readln(ch);
  writeln('Cтудент заданного пола с минимальным ростом: ');
  Choose(ch);
end.