Программа на строки, Срочно нужно сделать Опции

[TORETO]

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

[TORETO]

Да, опять задачник Пильщикова.Кстати, к нему нет ответов? Текст вводить как строку(string), двумерный массив использовать нежелательно.
Нет, не три программы.Это все должно быть в одной(я думаю с использованием copy что-то)

Добавлено через 4 мин.

 
program revva;
uses crt;
var
 s,a:string;
 i:integer;
begin
 clrscr;
 writeln('Vvedite tekst');
 read(s);
For i:=1 to length(s) do begin
If s[i]=',' then begin
a:=copy(s,1,i);
delete(s,1,i);
writeln(a);
end;
end;
repeat
  a:=copy(s,1,6);
  delete(s,1,6);
  writeln(a);
until length(s)=0;
readkey;
end.

Что-то наподобие того, тоько в цикле нельзя менять длину строки и то что в repeat тоже как-то должно быть в цикле(наверное можно обойтись и без delete но не знаю как!)

Добавлено через 5 мин.
klem4 извини, я просто забыл,что уже создал тему