Описать функцию, которая возвращает максимальную длину строки в массиве строк. (Паскаль)

function MaxLen(a:array of string):=a.Select(t->t.Length).Max;

begin
  var s:=Arr('первая','вторая','третья','четвертая','пятая');
  s.Println;
  Writeln('Макс. длина: ',MaxLen(s))
end.


первая вторая третья четвертая пятая
Макс. длина: 9