В каждом слове поменять буквы (задом наперед), все слова расположить в обратной последовательности

uses
  crt;
const
  limits = [#0..#32,'.',',',':',';','!','?','"'];
  MaxWords = 100;
  MaxLimitWords =1000000;
type
  TWords = array[1..MaxWords] of string[80];
  AllWords = array[1..MaxLimitWords] of string[80];
var
  text : string[80];
  words : TWords;
  mywords:allwords;
  f : textfile;
  nwords:word;
  i,count:dword;
  ch:char;
 
function InvertString(s:string):string;
var
  f:Char;
  i:byte;
begin
  for i:=1 to Length(s) div 2 do
    begin
      f:=s[i];
      s[i]:=s[Length(s)-i+1];
      s[Length(s)-i+1]:=f;
    end;
  InvertString:=s;
end;
 
function GetWords(s : string; var w : TWords) : Word;
var
  i,back,n : word;
begin
  i := 1;
  n := 0;
  while(i<=length(s)) do
    begin
      while(i<=length(s)) and (s[i] in limits) do
        inc(i);
      if i<=length(s) then
        begin
          back := i;
          while(i<=length(s)) and not(s[i] in limits) do
            inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
       end;
    end;
  GetWords := n;
end;
 
begin
  clrscr;
  assignfile(f,'example.txt');
  reset(f);
  count:=0;
  while not eof(f) do
    begin
      readln(f,text);
      writeln(text);
      nwords:=getwords(text,words);
      for i:=1 to nwords do
        mywords[i+count]:=words[i];
      count:=count+nwords;
    end;
  closefile(f);
  for i:=1 to count div 2 do
    begin
      text:=mywords[i];
//      ch:=mywords[length(mywords[i])]); // Ї®б«Ґ¤*Ё© бЁ¬ў®«
      mywords[i]:=mywords[count-i+1];
      mywords[count-i+1]:=text;
   end;
  for i:=1 to count do
    write(InvertString(mywords[i]),' ');
  readln;
end.