Составьте программу которая позволяет закодировать строку путем замены всех…

const s: array [1… 6] of char=('б','в','г','д','ж','з'); d: array [1… 6] of char=('п','ф','к','т','ш','с'); var c: string; i,j: integer; begin readln (c); for i: =1 to length (c) do for j: =1 to 6 do if d[j]=c[i] then c[i]: =s[j] else if s[j]=c[i] then c[i]: =d[j]; writeln (c) end.