Стандартные процедуры и функции для работы со строками

Program primer_8_8;

var s,p,t:string;

n1, n2, k:integer;

begin

 writeln('строка s');

 readln(s); {s- исходная строка}

 writeln('подстрока p');

 readln(p); {p- исходная подстрока}

 n1:=length(s); {определяем длину строки s}

 n2:=length(p);{определяем длину подстроки p}

 k:=0; {первоначальное значение счетчика}

 for var i:=1 to n1-n2+1 do {устанавливаем цикл от 1 до разницы в длинах строк}

 begin

  t:=copy(s, i, n2); {выделяем из строки "S" подстроку "t" такой же длины, что и "p" с текущего символа}

  if t=p then {сравниваем подстроки}

   k:=k+1; {если они равны, то увеличиваем значение счетчика на 1}

  end;

  writeln('Встречается',k, 'раз(-а)'); {выводим результат}

end.

program primer_8_9;

const s = 'ТЕСТИРОВАНИЕ'; {слово будет храниться как константа в строке s}

var s1: string;

begin

s1 := s[6]; {в строке s1 будет храниться 6ойсимвол строки s}

s1 := s1 + copy(s,5,8);{к строке s1 добавляем скопированные символы из строки s} {ПОЛУЧИМ СЛОВО РИРОВАНИЕ}

delete(s1, 3, 1); {удаляем из строки s1 третий символ}

{ПОЛУЧИМ СЛОВО РИОВАНИЕ}

insert(s[3], s1, 3); {на третье место ставим третий символ}

{ПОЛУЧИМ СЛОВО РИСОВАНИЕ}

writeln('Слово =', s1); {Выводим результат на экран}

end