Текстовый файл. Удалить из каждой строки слова, состоящие из одного символа

VAR
   X:TEXT;
   J,D,C,I:INTEGER;
   ST, NAME_ISH, NAME_RES, SL:STRING;
 
BEGIN
    ASSIGN(X, 'ish.pas');
 
    RESET(X);
     WRITELN ('èñõîäíûé ô');
     RESET(X);
      WHILE NOT EOF(X) DO
        BEGIN
          READLN(X,ST);
          WRITELN (ST);
        END;
    WHILE NOT EOF(X) DO
    BEGIN
      READLN(X,ST);
      I:=1;
       WHILE I<= LENGTH(ST) DO
         BEGIN
       WHILE (ST[I] =' ' ) AND (I<= LENGTH(ST))  DO
          INC(I);
    C:=I;
        WHILE  (ST[I] <> ' ') AND (I<= LENGTH(ST))  DO
  INC(I);
     SL:=COPY(ST, C, I-C);
           D:= LENGTH(SL);
if length (sl)=1 then
begin
delete (st,1,length (sl));
i:=i-1;
end;
    END;
    END;
     WRITELN ('ðåç ô');
     RESET(X);
      WHILE NOT EOF(X) DO
        BEGIN
          READLN(X,ST);
          WRITELN (ST);
        END;
     CLOSE(X);
END.

if(s[i]<>' ')//если не пробел
and(((i=1)and(s[i+1]=' '))//и или первый и за ним пробел
or((i=length(s))and(s[i-1]=' '))//последний и перед ним пробел
or((s[i-1]=' ')and(s[i+1]=' ')))//или пробелы с 2 сторон
then delete(s,i,1);