Даны строки S S0. Удалить из строки S последнюю подстроку совпадающую с S0. Если совпадающих подстрок нет. То вывести строку S без изменений — Pascal(Паскаль)

uses crt;
var s,s0:string;
    i,p:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
writeln('Введите подстроку для поиска');
readln(s0);
p:=0;
i:=length(s);
while(i>=1)and(p=0) do
if copy(s,i,length(s0))=s0 then p:=i
else i:=i-1;
if p=0 then write('Данной подстроки в строке нет!')
else delete(s,p,length(s0));
write(s);
readln
end.