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

[UnSpi]

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

[UnSpi]

большое спасибо!!!!!!все понятно!!!!
можно теперь такой вопрос:
как вывести в этой задаче сначала исходный текст,а затем уже переработанный,
и еще как изменится программа,если в данной строке нужно удалить повторяющие «лишние» пробелы, если они есть, и если слово нечетной длины, удалить среднюю букву в каждом слове??????

[volvo]

как вывести в этой задаче сначала исходный текст, а затем уже переработанный

while not eof(f) do begin
  read(f, ch); write(ch);
end;
reset(f);
{ и потом уже делать по алгоритму }

как изменится программа, если в данной строке нужно удалить повторяющие «лишние» пробелы, если они есть

это не нужно добавлять - оно уже есть. Этим занимается вот этот фрагмент:

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

и если слово нечетной длины, удалить среднюю букву в каждом слове??????

вместо

s := s[length(s)] + copy(s, 1, pred(length(s)));

делать

if odd(length(s)) then
  delete(s, succ(length(s) div 2), 1);