Даны строки S1 и S2. Удалить из строки S1 первую подстроку S2, если S2 не содержится в S1, вывести S1 без изменений

PascalABC.NET

Пример работы:

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33