Неполное количество, там не указано время!
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
Объяснение:
потому что тебе надо ввести число н равное нулю, чтобы завершить цикл, у тебя в заголовке цикла сказано: пока больше/меньше нуля делай...