Строки. 1- Вычеркнуть из текста все повторяющиеся слова. 2 - Изменить окончания слов «ый» на «ая»

begin
  writeln(ReadlnString('Текст:').ToWords.Distinct.JoinIntoString);
end.

begin
  writeln(ReadlnString('Текст:').ToWords.Select(w -> w.EndsWith('ый') ? copy(w, 1, w.Length - 2) + 'ая' : w).JoinIntoString);
end.

program t31;
var
  s, s1, s2: string;
  i, n: integer;
  A: array [1..100] of string;
  f: boolean;
begin
  write ('Введите исходную строку: ');
  readln (s);
  s:=s+' ';
  s1:='';
  n:=0;  
  while pos(' ',s)>0 do
    begin
      i:=0;
      f:=true;
      s2:=copy (s,1,Pos(' ',s)-1);
      delete (s,1,Pos(' ',s));
      while (i<n) and f do
        begin
          i:=i+1;
          if A[i]=s2 then f:=false;
        end;
      if f then 
        begin
          s1:=s1+' '+s2;
          n:=n+1;
          A[n]:=s2;
        end;
    end;
    writeln ('Полученная строка:',s1);
end.

program t32;
var
  st: string[250];
  i: integer;
begin
   write ('Введите исходную строку: ');
   read (st);
   for i:=length(st) downto 1 do
     if (st[i]='ы') and (st[i+1]='й') then
        begin
          delete (st,i,2);
          insert ('ая',st,i)
        end;
   writeln ('Преобразованная  строка: ',st);
end.