Слова исходной строки, разделенные одним или несколькими пробелами, переписывает в обратном порядке

program rev1;
uses
  crt;
//процедура конвертации из фака
procedure Convert(var a:string);{ASCII->ANSI}
var i:integer;
begin
  for i:=1 to length(a) do
   if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
   else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
   else if ord(a[i])=240 then a[i]:=chr(ord(168))
   else if ord(a[i])=241 then a[i]:=chr(ord(184));
end;
var
  line, word, line1 : string;
  t : text;
begin
  clrscr;
  write('Введите строку : '); readln(line);
  while line[length(line)] = ' ' do line := copy(line,1,length(line)-1);  
  line1 := '';
  repeat
    while line[1] = ' ' do line := copy(line,2,length(line)-1); 
    word := copy(line,1,pos(' ',line)-1);  
    line := copy(line,pos(' ',line),length(line)-length(word));
    line1 := word + ' ' + line1;
  until pos(' ',line) = 0;
  line1 := line + line1;
  writeln(line1);
  assign(t,'TextFile.txt');
  rewrite(t);
  Convert(line1);
  writeln(t,line1);
  close(t);
  readln; 
end.