Работа с файлами Pascal

Program FileExp;
var f:text;FileText,tmp:string;i:integer;
 
function Naoborot(msg:string):String;
var
  tmp:string;
    begin
    i:=1;                                             {начальное значение чтобы войти в цикл}
    while i<>0 do                     {циклимся пока i <> 0}
    begin
    i:=0;                         {обнуляем}
    i:=Pos(' ',msg);                      {ищем пробелы}
    if i<>0 then                      {если нашли то...}
    begin 
       tmp:=Copy(msg,1,i-1) + chr(32)  +tmp;          {добавим слово в начало строки}
       Delete(msg,1,i);                                        {удалим то что уже добавили}
    end  
    else tmp:=msg + chr(32) + tmp;                     {забираем последнее слово}
  end;
  Naoborot:=tmp;                                 
end;
 
 
BEGIN
    Assign(f,'file.txt');                   {Текстовый Файлик file.txt}
    Reset(f);                               {открываем чтобы почитать}
    while Not(eof(f)) do                 {циклимся пока не конец файла}
    begin
    readln(f,tmp);                         {читаем строку}
    FileText:=FileText+tmp;            {добавляем в наш текст}
    end;
    close(f);                                 {закрываем файл}
  writeln('Res=',Naoborot(FileText));        {выводим 'Res=' + Значение функции Naoborot}
  readln;
END.