program Zeichenketten;

uses crt;
Var
 such, ersetzt: char;
 zeichenkette: string;
 i           : integer;

BEGIN Clrscr;
     writeln('Bitte Zeichenkette eingeben (max. 20 Zeichen!)  : ');readln(zeichenkette);
     writeln('Welchen Buchstaben suchen Sie                   : ');readln(such);
     writeln('Durch welchen Buchstaben soll es ersetzt werden?: ');readln(ersetzt);
 For i := 0 to length (Zeichenkette) DO
  begin
   if zeichenkette [i] =such
   then Zeichenkette [i]:=ersetzt;
  end;
  writeln(Zeichenkette);
  readln;
 end.