begin
clrscr;
assign(t, 'input.txt');

reset(t);
while not EoF(t) do
begin
readln(t, s);

for i := 1 to length(s) do {schitaem kolichestvo slov v stroke}
if s[i] = ' ' then inc©;

ost := l - length(s); {ost - kolichestvo probelov, kotorie nado}
{budet vstavit' v stroku mezhdu slovami}

j := 1;

while ost > 0 do {v cikle for vstavlyaem po odnomu}
begin {probelu mezhdu kazhdim slovom za}
for i := 1 to length(s) + c - 1 do {odin prohod. i tak dvigaemsya po}
if (s[i] = ' ') then {ka probelov u nas ne ostanetsya }
begin {(peremennay ost)}
if ost <= 0 then break;
insert(' ', s, i);
dec(ost);
inc(i, j);
end;
inc(j); {t.k. pri prohozhdenii cikla FOR mi vstrechaem pervii probel}
{posle slova i vstavlyaem v etu posiciyu probel, to v sleduy}
{shei posicii budet opyat' probel i poetomu posiciyu I v str}
{oke S mi uvelichivaem na J vstavlennih probelov do etogo}
end;

c := 0; {obyazatel'no obnulayem kol-vo strok v stroke}

writeln(s);
end;

close(t);
readkey;
end.

Источник: