uses crt;
var m:string[79];
    k:string[79];
    i:integer;
    position:byte;
procedure Search;
begin
 Position:=pos(k,m);
 IF position<>0 then sound(100);delay(10);nosound;
end;
begin;
 textbackground(0);
 clrscr;
 writeln('Введите предложение');
 readln(m);
 writeln('Какие символы следует найти');
 readln(k);
 clrscr;
 search;
 writeln(m);
 textbackground(9);gotoxy(pos(k,m),1);writeln(k);
 textbackground(0);
 writeln('Фрагмент"',k,'"был найден начинвя с позиции',position:3)
end.