Jak napisać program w Turbo Pascal do zamiany liter na _X_?

 uses crt,strings;
 var dl,i:integer;
     s,ss,sss:string;
     ch,ch_z:char;
 begin
 clrscr;
 ss:='';
 write('podaj litere do zamiany ');readln(ch_z);
 Writeln('pisz tekst');
  readln(s);
  dl:=length(s);
  for i:=1 to dl do
   begin
   ch:=s[i];
   if ch=ch_z then begin ch:='X';sss:='jest';end;
   ss:=ss+ch;
   end;
   if sss='jest' then  writeln(ss) else writeln('nie ma takiej litery');
 readkey;
  end.