Заданный текст распечатать по строкам

uses
    crt;
var
   s:string;
   i:integer;
   count:integer;
begin
     s:='Çàäàííûé òåêñò ðàñïå÷àòàòü ïî ñòðîêàì, ïîíèìàÿ ïîä ñòðîêîé èëè î÷åðåäíûå 60, ëèòåð, åñëè ñðåäè íèõ íåò çàïÿòîé, ëèáî òåêñò äî çàïÿòîé âêëþ÷èòåëüíî.';
     for i:=1 to length(s) do
         begin
              if count<20 then
                 begin
                      if s[i]<>',' then
                         begin
                              write(s[i]);
                              inc(count);
                         end
                      else
                          begin
                               write(s[i]);
                               writeln;
                               count:=0;
                               i:=i+1;
                          end;
                 end
              else
                  begin
                       writeln;
                       count:=0;
                       write(s[i]);
                  end;
         end;
 end.