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

[TORETO]

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

[klem4]

вот как вариант, надо конечно чонить покороче придумать.

var
  s, tmp: String;
  p, start: Byte;

begin
  write('s = '); readln(s);

  start := 1;
  while start <= length(s) do begin
    p := Pos(',', Copy(s, start, 6));

    if p = 0 then begin
      tmp := Copy(s, start, 6);
      inc(start, 6)
    end else begin
      tmp := Copy(s, start, p - 1);
      inc(start, p);
    end;

    if length(tmp) > 0 then writeln(tmp);
  end;
end.