Найти в тексте подстроку «авс» — Pascal(Паскаль)

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.