Выбрать слово средней длины среди трёх слов разной длины - Pascal

Формулировка задачи:

Создать программу ,которая выбирается из введенных трех разных слов длины на среднюю длину

Решение задачи: «Выбрать слово средней длины среди трёх слов разной длины»

Листинг программы

var
  a, b, c: String;
  pa, pb, pc, t: ^String;
begin
  ReadLn(a); ReadLn(b); ReadLn(c);
  pa:=@a; pb:=@b; pc:=@c;
  if Length(pa^)>Length(pb^) then begin t:=pa; pa:=pb; pb:=t; end;
  if Length(pb^)>Length(pc^) then begin t:=pb; pb:=pc; pc:=t; end;
  if Length(pa^)>Length(pb^) then begin t:=ap; pa:=pb; pb:=t; end;
  WriteLn(pb^);
end.

Объяснение кода листинга программы

Ввод трех строк с помощью функции ReadLn
Создание указателей на строки a, b, c и на пустую строку t
Сравнение длин строк, хранящихся по адресам pa, pb, pc.
Если длина строки, хранящейся по адресу pa, больше длины строки, хранящейся по адресу pb, то производится обмен значений между переменными t и pa.
Если длина строки, хранящейся по адресу pb, больше длины строки, хранящейся по адресу pc, то производится обмен значений между переменными t и pb.
Если длина строки, хранящейся по адресу pa, больше длины строки, хранящейся по адресу pb, то производится обмен значений между переменными t и ap.
Вывод на экран строки, хранящейся по адресу pb.