строки Опции

[RIDDICK]

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – запятая или не менее одного пробела, за последним словом - точка.

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

помогите решить... горю... стринги еще не прошли ((

[hiv]

Ввод строки:

uses Crt;

var q :char;
      count :integer;   {количество вводимых символов}
      s :array[1..400] of char;  {обходимся без PChar}

begin
  count:=0;
  repeat
    q:=readkey;
    if ord(q)<>13 then
    begin
      inc(count);
      ss[count]:=q;
    end;
  until ord(q)=13;

. . . . . .
end.

Имей в виду, при вводе редактировать нельзя!!!