Free Pascal!! задание по строкам!!

[TinMan]

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

извини, но я не понимаю о чем ты....

Слова разделены только пробелами, или могут быть запятые и др. знаки препинания? Если могут, то как быть с ними после перестановки слов?

[TinMan]

Вик, я тебе тут накалякал что-то.. если честно, оно мне самому не нравится. Знаки препинания на входе могут быть, но на выходе их не будет.

Если тебе все равно, то сойдет. Если не сойдет, пиши, что нужно изменить. Или пиши, если захочешь разобраться - буду рад..

const
  m= 100;
  s: string= 'Now is the winter of our discontent: Made glorious summer by this sun of York';
  Alphabet: set of char= ['A'..'Z','a'..'z','0'..'1'];

var
  w: array[1..m] of string[31];
  i,j,n: integer;
  t: string;

begin
  n:= 0;
  while Length(s)>0 do begin
    while (Length(s)>0) and not (s[1] in Alphabet) do Delete(s,1,1);
    if Length(s)>0 then begin
      inc(n);
      while (Length(s)>0) and (s[1] in Alphabet) do begin
        w[n]:= w[n]+s[1];
        delete(s,1,1)
      end
    end
  end;
  for i:=1 to n do
    for j:=n-1 downto i do
      if Length(w[j])>Length(w[j+1]) then begin
        t:= w[j];
        w[j]:= w[j+1];
        w[j+1]:= t
      end;

  for i:=1 to n do write(w[i],' ');
  readln
end.

[Vika_0_0]

в принципе, в задании ничего про это не говорится. не факт, что там нужны знаки препинания. я вообще не понимаю задания. ладно, что-нибудь придумаю. надо еще самой разобраться. так-то защищать по-любому надо..

спасиииибо большое))
сча буду забивать и смотреть че и как.

[TinMan]

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

спасиииибо большое))
сча буду забивать и смотреть че и как.

Бальзам на измученное сердце.. мир? ))

[Vika_0_0]

конечно мир)))
не держи зла только)

[Poma][a]

эх... жаль что не заходил... а такая хорошая оказалась) ты главное не пиши "Сделать \ написать" и т.д и т.п а то сразу хочется послать подальше)

[Vika_0_0]

да)) ты многое пропустил...тебя я ждала как раз)))

[Poma][a]

)) школа)
10 букаф