Перенос первой буквы в конец слова

[Zigi]

Дана фраза с пробелами и точкой в конце. Как мне задать строчку с переносом буквы в конец слова.
P.S. задал программу я следующим образом:

Program text_file;
uses crt;
var
f,ff:text;
predl,sl,bukva:string;
slovo:array[1..10] of string;
i,j,k:integer;

[unbanned]

а если:

var
...
bukva, predl:string;
...
for i:=1 to length(predl) do
if predl[i]<>' ' then begin
bukva:=predl[i];
break;
end;
if predl[i]<>' ' then begin
predl[legth(predl)]:=bukva;
delete(predl,1,1);
predl:=predl+'.';
end;
...
end.

[Zigi]

Ерунда какая то получается =(

var
  f, ff: text;
  predl, sl, bukva: string;
  slovo: array[1..10] of string;
  i, j, k: integer;

begin
  assign(f, 'd:\input.txt');
  reset(f);
  assign(ff, 'd:\output.txt');
  rewrite(ff);
  while not eof(f) do
    read(f, predl);
  clrscr;
  writeln('Isxodnoe predlozhenie:');
  writeln(predl);
  readkey;
  writeln('Predlozhenie po clovam:');
  k := 1;
  slovo[k] := '';
  for i := 1 to length(predl) do
    if predl[i] <> '' then
      slovo[k] := slovo[k] + predl[i]
    else
    begin
      k := k + 1;
      slovo[k] := '';
    end;
  for j := 1 to k - 1 do
    for i := 1 to k - j do
      if length(slovo[i]) < length(slovo[i + 1]) then
      begin
        sl := slovo[i];
        slovo[i] := slovo[i + 1];
        slovo[i + 1] := sl;
      end;
  for j := 1 to k do
    writeln(slovo[j]);
  readkey;
  for i := 1 to length(predl) do
    if predl[i] <> ' ' then begin
      bukva := predl[i];
      break;
    end;
  if predl[i] <> ' ' then begin
    predl[length(predl)] := bukva;
    delete(predl, 1, 1);
    predl := predl + '.';
  end;
  for j := 1 to k do
  begin
    writeln(slovo[j]);
    writeln(ff, slovo[j]);
  end;
  readkey;
  close(f);
  close(ff);
end.
51 строка : Нельзя преобразовать тип string к char

[unbanned]

да, моя ошибка... прошу прощения, код не проверил

var
...
bukva, predl:string;
...
for i:=1 to length(predl) do
if predl[i]<>' ' then begin
bukva:=predl[i];
break;
end;
if bukva <> '' then begin
delete(predl,length(predl),1);
predl:=predl+bukva;
delete(predl, 1, 1);
predl := predl + '.';
end;
...
writeln(predl);
...
end.