Напечатать все слова, отличные от последнего слова, предварительно преобразовав их по заданному правилу

var strStr: string;
 
writeln('Введите строку');
readln(strStr);

var strStr: string;
 
strStr := 'Word1 word2 ....';

uses
  crt;
var
  t : text;
  s, f_name : string;
  w : array[2..30] of string[10];
  last_w : string[10];
  i, j : integer;
begin
  clrscr;
  write('File Name:'); readln(f_name);
  assign(t,f_name);
  {$I-}
  reset(t);
  {$I+}
  If IOResult<>0 then begin
    writeln('File not found.');
    readln;
    exit;
  end;
  i := 0;
  writeln('Original File:');
  while not eof(t) do begin
    readln(t,s);
    writeln(s);
    s := s + ' ';
    while s<>'' do begin
      inc(i);
      if (i>30) or (length(copy(s,1,pos(' ',s)-1))>10) then begin
        writeln('Error.');
        readln;
        exit;
      end;
      w[i] := copy(s,1,pos(' ',s)-1);
      delete(s,1,pos(' ',s));
      while s[1]=' ' do delete(s,1,1);
    end;
  end;
  writeln;
 
  last_w := w[i];
  for j := 1 to i do if w[j]<>last_w then
    write(copy(w[j],2,length(w[j])-1)+w[j][1],' ');
  writeln;
  for j := 1 to i do if w[j]<>last_w then
    write(w[j][length(w[j])]+copy(w[j],1,length(w[j])-1),' ');
  readln;
end.