Записать текст лесенкой(по одному слову в строке)

var
a:array[1..100]of string;
b:array[1..80]of string;
k,i,j,m,l:integer;
t:string;
begin
repeat
writeln('Введите очередную строку. Окончание ввода - точка вместо строки');
inc(k);
readln (a[k]);
until a[k]='.';
for i:=1 to k-1 do
 begin
   a[i]:=' '+a[i];
   m:=0;
   t:=a[i];
   for j:=1 to length(t) do
   if t[j]=' 'then
   begin
   inc(m);
   b[m]:='';
   end
   else b[m]:=b[m]+t[j];
   for j:=2 to m do
    begin
    for l:=1 to length(b[j-1]) do
    b[j]:=' '+b[j];
    end;
for j:=1 to m do
writeln(b[j]);
if i mod 4=0 then writeln;
end;
end.

var
a:array[1..100]of string;  {объявили 2 массива, один для строк, другой для слов}
b:array[1..80]of string;
k,i,j,m,l:integer;
t:string;
begin                        
repeat                {в цикле "повторять" по очереди вводим строки и заносим их в массив а}  
writeln('Введите очередную строку. Окончание ввода - точка вместо строки');
inc(k);                      {номер очередной строки}   
readln (a[k]);             {ввод строки}
until a[k]='.';             {закончим ввод, когда вместо строки появится точка}
for i:=1 to k-1 do        {перебираем строки кроме последней (там только точка)}  
 begin
   a[i]:=' '+a[i];        {в начало каждой  строки, кроме последней добавляем пробел}
   m:=0;                  {обнуляем счетчик слов в строке}
   t:=a[i];                {заносим строку во временную переменную для удобства работы с индексами}
   for j:=1 to length(t) do   {проходим по строке}
   if t[j]=' 'then                  {пробел - сигнал начала слова, поэтому}
   begin
   inc(m);                          {увеличиваем счётчик слов}
   b[m]:='';    {убираем все символы из переменной, чтобы ввести в неё новое слово}
   end
   else b[m]:=b[m]+t[j];        {составляем слово}
   for j:=2 to m do               {к каждому слову, начиная со 2 добавляем в начало пробелы,}
    begin                                {чтобы получилась лесенка}
    for l:=1 to length(b[j-1]) do
    b[j]:=' '+b[j];                     {количество пробелов = длине предыдущего слова (смещение)}
    end;                                   
for j:=1 to m do
writeln(b[j]);                         {печатаем слова строки}
if i mod 4=0 then writeln;         {если напечатали 4 строки, вставляем промежуток}
end;                                     {переходим к следующей строке и начинаем заново}
end.