Записать текст лесенкой(по одному слову в строке),вставляя пустую строку после каждого четверостишья

[klindk]

Стихотворный текст(в строке не более 80 символов)имеет четырехстрочную строфу.Записать текст лесенкой(по одному слову в строке),вставляя пустую строку после каждого четверостишья.

[alex_fcsm]

если я правильно понял

uses crt;
var s,s1,sub:string;
    i,j,m,n:integer;
    a:array[1..100] of string;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;


for i:=1 to n do
 begin
  if i mod 4 =1 then writeln(a[i]);
  if i mod 4 =2 then writeln(' ',a[i]);
  if i mod 4 =3 then writeln('   ',a[i]);
  if i mod 4 =0 then begin
                      writeln('    ',a[i]);
                      writeln;

                     end;
 end;

end.

[klindk]

Почти так только там текст изначально надо вводить в виде четверостишья.Но за это тоже огромное спасибо выручил