определить позицию самого правого вхождения в заданную строку

program n1;
 
  var srt,srt2:string;
      s:char;
      t:text;
 
  procedure poisk(var srt,srt2:string; var s:char);
  var k,i,p:integer;
  begin
   k:=length(srt);
   For i:=k downto 1 do begin
    If srt[p]=s then begin
     writeln('pozicia=',p);
     readln;
    end;
   end;
  end;
 
 
 
 
 
  begin
  { assign(t,'468.pas');
   append(t); }
   writeln('vvedite 1 stroku:');
   readln(srt);
   writeln('vvedite 2 stroku:');
   readln(srt2);
   writeln('vvedite iskomi element');
   readln(s);
 
   poisk(srt,srt2,s);
  { close(t);   }
   end.

program n1;
uses crt;
procedure poisk(var str,str2:string; var p:integer);
var i,j:integer;
begin
p:=-1;
i:=1;
while(p=-1)and(i<=length(str2))do
 begin
  j:=length(str);
  while(p=-1)and(j>=1)do
  if str[j]=str2[i] then p:=j
  else j:=j-1;
  if p=-1 then i:=i+1;
 end;
end;
var srt,srt2:string;
    p:integer;
begin
writeln('vvedite 1 stroku:');
readln(srt);
writeln('vvedite 2 stroku:');
readln(srt2);
poisk(srt,srt2,p);
write('P=',p);
end.

p:=-1;//считаем что в 1 строке нет ни одного символа второй
i:=1;//смотрим вторую строку сначала
while(p=-1)and(i<=length(str2))do//пока не нашли одинаковый символ(р=-1)и не конец строки
 begin
  j:=length(str);//встаем в конец первой строки
  while(p=-1)and(j>=1)do//пока не нашли и не начало строки
  if str[j]=str2[i] then p:=j//если нашли, запоминаем индекс
  else j:=j-1;//иначе к началу
  if p=-1 then i:=i+1;//если этого символа нет, проверяем следующий
 end;