Вывести ответ в столбик
 

Как вывести ответ не в строчку. Пробовала через for, но не выходит. Я её не сама делала и мне не всё понятно, а вы можете пояснить, значение переменных? Спасибо! Дан текст. Группы символов, разделённые пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Найти все слова, содержащие наибольшее количество гласных латинских букв(a,e,i,o,u).


program nomer_808(b);
var
smax: array[0..127] of string;
s, s1: string;
i, j, max: integer;

begin
for i := 0 to 127 do smax[i] := '';
write('введите строку:');
readln(s);
j := 0;
max := 0;
s1 := '';
for i := 1 to length(s) do
begin
s1 := s1 + s[i];
if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then j := j + 1;
if (s[i] = ' ') or (i = length(s)) then begin
if max < j then max := j;
smax[j] := smax[j] + s1;
j := 0;
s1 := '';
end;
end;
if max = 0 then writeln('HeT TaKux') else begin
{for :=0 to length(s) do}

writeln('MAX=', max);
writeln(smax[max]);
end;
end.