Обработать слова в Паскаль

[Twisti]

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

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

uses crt;
var s,sub:string;
    i,n,k,j:integer;
    a:array[1..100] of string;
    m:real;
    c:char;

begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;

for i:=1 to n-1 do
  if a[i]<>a[n] then begin
                     sub:='';
                     sub:=sub+a[i][length(a[i])];
                     for j:=1 to length(a[i])-1 do
                       sub:=sub+a[i][j];
                     writeln(sub);
                     end;


end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[GetMax]

for i:=1 to n do
If A[i] <> A[n] then
Begin
sub:=A[i];
Sub:=Sub+Sub[1];
Delete(Sub,1,1);
writeln(sub);
end;
Readln

[Twisti]

спасибо большое )