Строка

[zaira001002]

program Lab6;

{$APPTYPE CONSOLE}

{$R *.res}
 { Дана строка, состоящая из слов. Между словами один или несколько пробелов.
   Пробелы есть в начале и в конце. Сформировать новую строку из слов,
   отличающихся от первого слова, преобразовать каждый из них по
   следующему правилу: перенести последнюю букву в начало слова. Например,исходная строка"  abc abc   abc " , результат "  abc cab   cab "}
uses
  System.SysUtils;
var
  M,S: String; { Данная строка }
  K,N,I: Integer;
begin
  Writeln('Vvedite stroky',S);
    M:='';
  for I := 1 to Length(S) do
   if s[i]=' ' then
   begin
    K:=I;
   end;
  for I := k+1 to length(s) do
   if s[I]<>' ' then
   N:=I;
  for I := n+1 to length(s) do
    while s[I]<>' ' do
    begin
    M:=S[I];
    end;
  insert(M, S, n+1);

    writeln (s);
  Readln;
  readln;
end.

[Mad_Cat]

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

при таких исходных - результат "" должен быть

[zaira001002]

просто у меня ошибки....я не знаю