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

var
s, l: string;
n:integer;
procedure LastIndexOf(s, l: string);
var i, n: integer;
begin
for i := 1 to length(s) do
if s[i] = l then begin
n := i;
end;
n := -1;
end;
begin
Writeln('Введите последовательность '); Read(s);
Writeln('Введите символ '); Read(l);
LastIndexOf(s, l);
if n = -1 then
Writeln(n)
else
Writeln('Позиция самого правого вхождения символа ', l, ' в строку ', s, ' = ', n);
end.

function LastIndexOf(const s: string;const l:char):integer;
var i: integer;
begin
   LastIndexOf := -1; 
   for i := length(s) downto 1 do
      if s[i] = l then begin
           LastIndexOf := i;
           Exit
      end;
end;
 
 
var
  s: string;
  l: char;
begin
  Writeln('Введите последовательность '); ReadLn(s);
  Writeln('Введите символ '); ReadLn(l);
  Writeln('Позиция самого правого вхождения символа ', l, 
     ' в строку ', s, ' = ', LastIndexOf(s, l));
  ReadLn
end.

procedure LastIndexOf(const s: string;const l:char; var Position :integer );
var i: integer;
begin
   Position := -1; 
   for i := length(s) downto 1 do
      if s[i] = l then begin
           Position := i;
           Exit
      end;
end;
 
 
var
  s: string;
  l: char;
  LastPos:integer;
begin
  Writeln('Введите последовательность '); ReadLn(s);
  Writeln('Введите символ '); ReadLn(l);
  LastIndexOf(s, l, LastPos);
  Writeln('Позиция самого правого вхождения символа ', l, 
     ' в строку ', s, ' = ', LastPos);
  ReadLn
end.