Задача на файл и еще... Опции

[UnSpi]

Пожалуйста помогите рещить такую задачу!!!!!! :molitva:
Реально ,вопрос жизни и смерти!!!!!!
Вот условие:
В текстовый файл занесена строка длиной более 255 символов (в строке может быть только одно слово). Вывести на экран строку, удалив повторяющие «лишние» пробелы, если они есть, и во всех словах перенести последнюю букву в начало слова.
заранее спасибо!!!

[volvo]

Тогда вот так:

var
  ch: char;
  s: string;
  f: text;
begin
  assign(f, 'my.txt');
  reset(f);
  while not seekeof(f) do begin

    repeat
      read(f, ch);
    until ch <> #32;

    s := ch;

    repeat
      read(f, ch);
      if ch <> #32
        then s := s + ch;
    until (ch = #32) or (eof(f));
    s := s[length(s)] + copy(s, 1, pred(length(s)));
    write(s, ' ');

  end;
end.