Переформатировать текст

[AlSanchez]

Текст записан одной длинной строкой. Признаком красной строки служит символ $. Переформатировать текст в 60-символьные строки,формируя абзацы.

[newerow1989]

const s='qwert yuiop asdf$hggs hjq2oiu ah iuh238 uew iuweiuoiwhuehiuhui uihduio '+
        'fgiue oiuewhoai rueoiaur oia hir g rgf r gforih rehf oiruh fiourh fiuer'+
        'h fiour eoiughraui hgreoiu oireua oiueha pfiewhpr8a9y4w 9uhuiweh fpieh '+
        'fgiufhwepafh upew fdsa gpqy rp983y r3w78y 8wueh upiwepgwepuipewiu hrpew'+
        'urh piuweh pwqhiuhwer piwephweapohwpehpew$skj kjs hafhsdaifh psa$sd ajd'+
        'sf ijdaiofjapois poire opir oigureopa osijef iosdj fpoisdha f8er tiuesa'+
        'fpoiseafpheaw89ph fioea984up jesapiofhpeosah fpoesiu r89awfiosaeh fpeah'+
        'f poie poifehporih3 woRIHPWEAH P3UR IHSEIOH fdoiafp iewajporhrasiu rf9e'+
        'w rh3uhruipeh ewlji hwei';
var i,n:integer;
    str,slo:string;
begin
   str:='   ';
   slo:='';
   n:=0;
   For i:=1 to Length(s) do
   begin
      n:=n+1;
      slo:=slo+s[i];
      If n>60 then
      begin
         Writeln(str);
         str:='';
         n:=0;
      end;
      If s[i]='$' then
      begin
         Delete(slo,Length(slo),1);
         str:=str+slo;
         slo:='';
         Writeln(str);
         str:='   ';
         n:=0;
      end;
      If s[i]=' ' then
      begin
         str:=str+slo;
         slo:='';
      end;
      If i=Length(s) then
      begin
         str:=str+slo;
         Writeln(str);
      end;
   end;
   Writeln;
   Readln;
end.