Помогите,пожалуйста

[D1MMER]

Задачка на Паскале.
Заданный текст распечатать по строкам(считая что строка-это 6 символов), если среди них нет запятой, либо часть текста до запятой включительно.

Помогите решить!

[puporev]

Вод код, только без запятых. Может сам доделаешь?

uses crt;
var s,s1:string; n,i,j,k:integer;a:array[1..100,1..100]of char;
begin
  clrscr;
  write('Text:');readln(s);
  n:=length(s);
k:=1;
for i:=1 to n div 6 do
for j:=1 to 6 do
   begin
     a[i,j]:=s[k];k:=k+1;
   end;
for i:=1 to n div 6 do
   begin
     for j:=1 to 6 do
         write(a[i,j]);
     writeln;
   end;
for i:=n-(n mod 6)+1 to n do write(s[i]);
readln;
end.

P.S. Исправил строку №20.