строки

var
 s:string;
 ch:char;
 i:byte;
 f:boolean;
begin
 Writeln('vvedite stroku');
 readln(s);
 writeln('Vvedite symvol');
 readln(ch);
 f:=false;
for i:=1 to length(s) do
 if copy(s,i,1)=ch then f:=true;
if f then writeln('Etot symvol est` v stroke')
     else begin
           writeln('Etogo symvola net v stroke');
           s:=s+ch;
           writeln(s);
          end;
 readln;
end.

uses crt;
var st:string;
ch:char;
k:integer;
 
begin
 clrscr;
 write('Строка -> ');
 readln(st);
 write('Символ -> ');
 readln(ch);
 if pos(ch, st) > 0 then
 begin
  writeln('Такой символ имеется в строке. Куда добавить? 1-начало, 2-конец');
  repeat
   write('-> ');
   readln(k);
  until (k=1) or (k=2);
  if k=1 then st:=ch+st else st:=st+ch;
  writeln('Преобразованная строка - ',st);
 end else writeln('Такого символа нет в строке');
 readln;
end.