Получить предложение, в котором самое длинное слово записано наоборот - Turbo Pascal

var
  str, substr, maxWord: string;
  i, maxLen, maxLenInd, maxWordEnd: integer;
  bufCh: char;
 
function inWord(ch: char): boolean;
begin
  if (upcase(ch) >= 'A') and (upcase(ch) <= 'Z') then inWord := true
  else inWord := false;
end;
 
begin
  writeln('Enter the sentence:');
  readln(str);
 
  substr := '';
  maxLen := 0;
  maxLenInd := 0;
 
  if length(str) > 0 then
    for i := 1 to length(str) do
    begin
      if inWord(str[i]) then
      begin
        substr := substr + str[i];
        if i = length(str) then
          if (length(substr) > maxLen) then
          begin
            maxLen := length(substr);
            maxLenInd := i - length(substr) + 1;
            maxWord := substr;
          end;
      end
      else
      begin
        if (length(substr) > maxLen) then
        begin
          maxLen := length(substr);
          maxLenInd := i - length(substr);
          maxWord := substr;
        end;
        substr := '';
      end;
    end;
  writeln('The longest word in this sentence: ', maxWord);
  maxWordEnd := maxLenInd + maxLen - 1;
 
  while maxLenInd < maxWordEnd do
  begin
    bufCh := str[maxLenInd];
    str[maxLenInd] := str[maxWordEnd];
    str[maxWordEnd] := bufCh;
    inc(maxLenInd);
    dec(maxWordEnd);
  end;
 
  writeln('The new sentence is:');
  writeln(str);
  readln;
end.