помогите вывести ответ в столбик

[Asya7]

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

program nomer;
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.

[min@y™]

Спасибо!

пожалуйста!

[newerow1989]

Изменить в конце:

if max = 0 then writeln('HeT TaKux') else begin
      writeln('MAX=', max);
      for i:=1 to length(smax[max]) do
         If smax[max][i]<>' ' then
            write(smax[max][i]) else
            writeln('');
   end;
   Readln;

[Asya7]

newerow1989, спасибо большое, а вы можете пожалуйста, прокомментировать действия в задаче и название переменных, если вам не трудно?

[newerow1989]

program nomer;
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);//исходная строчка
{обнуление счетчиков (3 строки)}
j := 0;
max := 0;
s1 := '';
for i := 1 to length(s) do 
begin
s1 := s1 + s[i];//записывает в переменную s1 каждый символ, s[i] - i-ый символ строки s
if upcase(s[i]) in ['A', 'E', 'I', 'O', 'U'] then j := j + 1;//если встретилась гласная буква в слове s, то j увеличиваем на единицу (т.е. считаем кол-во гласных в слове)
if (s[i] = ' ') or (i = length(s)) then begin//обнаружили пробел или дошли до конца строки s
if max < j then max := j;//записываем в переменную max максимальное количество гласных
smax[j] := smax[j] + s1;//запоминаем слово s1, далее обнуляем счетчик (следующие 2 строки)
j := 0;
s1 := '';
end;
end;
if max = 0 then writeln('HeT TaKux') else begin
      writeln('MAX=', max);//максимальное кол-во гласных
      for i:=1 to length(smax[max]) do
         {вывод слов на экран в столбик}
         If smax[max][i]<>' ' then
            write(smax[max][i]) else
            writeln('');
   end;
   Readln;
end.

[Asya7]

newerow1989, спасибо! Задачу сегодня сдала, но главное не это, главное, что я поняла её! Спасибо!