Строковый тип задачи... что не так?

[hasan]

Задача: Даны строки S и S0. Удалить из строки S последнюю подстроку, совпадающую с S0. Если совпадающих подстрок нет, то вывести S без изменений.

я далаю так: переворачиваю S и S0 задом на перёд, ищу первое совпадение, удаляю его, и опять переворачиваю... где ошибки? помогите пожалуйста...

program ex1;
var i, p: integer;
s, s0, sr, sr0:string;
begin
writeln ('vvedite stroku odin');
readln (s);
writeln ('vvedite stroku dva');
readln (s0);
s:='';
for i:=1 to length (sr) do
sr:=s+sr;
write ('rezultat s=');
s0:=sr0+s0;
write ('rezultat sr0=');
p:=pos(sr0,sr);
if p>0 then delete (sr,p,length(sr0));
s:=sr+s;
writeln (s);
end.