Как превратить слово море в суша, и слово миг в век

Миг мир пир пар бар бас бес вес век море горе гора кора кома кума (саша или сума) суша

Var   d : array[1..365] of byte; {начальные данные}   m : array[1..8] of word; for i: =1 to 8 do m[i]: =0; for i: =1 to 365 do inc(m[d[i]]); min: =1; for i: =2 to 8 do   if m[i]< m[min] then min: =i; case min of   1 : writeln('с южной стороны от комбината');   2 : writeln('с северной стороны от комбината');     8 : writeln('с северо-западной стороны от комбината'); end; мб подойдет, надо на паскале проверять. если ты просил массив в паскале

Const n=20; var a: array[1..n]of integer; i,k: integer; s: real;     begin         for i: =1 to n do             begin                 a[i]: =random(201)-100;                 write(a[i]: 4);                     if (a[i]> =10)and(a[i]< 100)and(a[i]mod 2=0)then                             begin                                 s: =s+a[i];                                 k: =k+1;                             end;             end; writeln; if k< > 0 then     writeln(s/k: 4: 2) else     writeln('нет четных двузначных'); end.