составьте программу которая...

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

 

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 then c:= s[j]
      else
        if s[j]=c then c:= d[j];
  writeln(c)
end.