В тех словах, которые оканчиваются сочетанием букв "ing", заменить это окончание на "ed"

USES Crt;
CONST
  N = 5;
VAR
  A, B, C: ARRAY[1..N] of INTEGER; 
  i: INTEGER;
 
  PROCEDURE Summ;        //процедура
  BEGIN
    FOR i := 1 TO N
    DO   
      C[i] := A[i] + B[i];
  END;
  
BEGIN
  FOR i := 1 TO N
  DO
    BEGIN
      A[i] := random(6);
      B[i] := random(6);
    END;                 //формируем массивы
  FOR i := 1 TO N
  DO
    WRITE(A[i]);
  WRITELN;
  FOR i := 1 TO N
  DO
    WRITE(B[i]);         //выводим сформированные массивы
  Summ;                  //вызов процедуры 
  WRITELN;
  FOR i := 1 TO N
  DO
    WRITE(C[i]);         //вывод конечного массива
  READLN
END.

USES Crt;
VAR
  S: STRING;
  i: INTEGER;
BEGIN
  READLN(S);
  S := S + ' ';
  FOR i := 1 TO Length(S)
  DO
    IF Copy(S, i, 4) = 'ing '
    THEN
      BEGIN
        Delete(S,i,4);
        Insert('ed ', S, i);
      END;
  Delete(S, Length(S), 1);
  WRITELN(S);
  READLN
END.

USES Crt;
CONST
  Alphabet1: ARRAY [1..20] of CHAR = ('B', 'C', 'D', 'F', 'G', 'H', 'J', 
  'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Z');
  Alphabet2: ARRAY [1..20] of CHAR = ('b', 'c', 'd', 'f', 'g', 'h', 'j', 
  'k', 'l', 'm', 'n', 'p', 'q', 'r', 's', 't', 'v', 'w', 'x', 'z');
VAR
  i, j: INTEGER;
  A: ARRAY[1..20] of BOOLEAN;
  S: STRING;
BEGIN
  READ(S);
  FOR j := 1 TO 20
  DO
    A[j] := TRUE;
  FOR i := 1 TO Length(S)
  DO
    FOR j := 1 TO 20
    DO
      IF (S[i] = Alphabet1[j]) OR (S[i] = Alphabet2[j])
      THEN
        A[j] := FALSE;
  FOR j := 1 TO 20
  DO
    IF A[j]
    THEN
      WRITE(Alphabet1[j]);     
  WRITELN;
  READLN
END.

program Project1;
 
(*Для кодовой страницы CP866 переводит символы в верхний регистр.
Правильно обрабатывает символы кириллицы.*)
function UpCaseRus(const aCh : Char) : Char;
var
  Res : Char;
begin
  Res := aCh;
  case Res of
    #$A0..#$AF: Res := Char(Ord(Res) - $20);
    #$E0..#$EF: Res := Char(Ord(Res) - $50);
    #$F1: Res := #$F0;
    else Res := UpCase(Res);
  end;
  UpCaseRus := Res;
end;
 
const
  (*Множество согласных букв.
  БВГДЖЗЙКЛМНПРСТФХЦЧШЩЬЪ*)
  A = [
    'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Й', 'К', 'Л', 'М', 'Н', 'П',
    'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ь', 'Ъ'
  ];
var
  S : String;
  Ch : Char;
  Da : set of Char;
  i : Integer;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
 
    Da := [];
    for i := 1 to Length(S) do begin
      Ch := UpCaseRus( S[i] );
      if Ch in A then Da := Da + [Ch];
    end;
 
    Writeln('Перечень согласных букв, которые ни входят ни в одно слово:');
    i := 0;
    for Ch := #0 to #255 do begin
      if ( Ch in A ) and ( not (Ch in Da) ) then begin
        Inc(i);
        if i > 1 then Write(', ');
        Write(Ch);
      end;
    end;
    Writeln;
    if i = 0 then Writeln('Все согласные буквы участвуют в тексте.');
 
    Writeln('Повторить - Enter. Выход - любой символ = Enter.');
    Readln(S);
  until S <> '';
end.