Задача на строки, плиз...

[Sid maksim]

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

[Карась]

Бежим по строке.
Встретили запятую? Перешли на другую строку.
Дошли до 60-ого символа? Перешли на новую строку.
И так до конца строки.

[puporev]

Встретили запятую? Перешли на другую строку.
Дошли до 60-ого символа? Перешли на новую строку.

Немного не так, это очень просто. Если запятая раньше 60-го символа, то новая строка, если до 60-го символа нет запятых, то после 60-го новая строка. Это понятно. Если запятая скажем на пятом месте, то новая строка, если дальше запятых нет, то новая строка после 65 знака и так далее. Я с налета попробовал, ничего не вышло, а вообще интересно.

[Карась]

Сообщение от puporev

Немного не так, это очень просто. Если запятая раньше 60-го символа, то новая строка, если до 60-го символа нет запятых, то после 60-го новая строка. Это понятно. Если запятая скажем на пятом месте, то новая строка, если дальше запятых нет, то новая строка после 65 знака и так далее. Я с налета попробовал, ничего не вышло, а вообще интересно.

Хм... я это так понял... (для перехода на 10 ом символе)

k := 10;

For
......
    S1 := S1 + S[i];

    if (S[i] = ',') or (i = k) Then
      Begin
        Writeln(S1);
        k := i + 10;
        S1 := '';
      End;

[puporev]

Все правильно, только одну строчку в конце надо. Вывести s1, остаток строки. У меня была такая же идея, только я неправильно использовал строку S1, не по назначению.
Пусть уж товарищ полюбуется полным кодом.

uses crt;
var s,s1:string;
    i,k,n:integer;
begin
clrscr;
writeln('Vvedite strku dlinoj >60 simvolov:');
readln(s);n:=length(s);
s1:='';k:=60;
for i:=1 to n do
  begin
    s1:=s1+s[i];
    if (s[i]=',')or(i=k) then
      begin
        writeln(s1);
        k:=i+60;
        s1:='';
      end;
  end;
writeln(s1);
readln
end.

[Sid maksim]

оооооооооо......Спасибо..Чтоб я без вас делал))) ..(в армию бы пошёл))))))