В данной строке определить номер позиции последней запятой

var i: byte;
  s: string;
  c: char;
begin
  i:=Length(s);
  s:=Edit1.Text;
  c:=s[i];
for i:=Length(s) downto 1 do if s[i]=',' then begin
  Label1.Caption:=(c);
  break;
end;

var i,j: byte;
    s: string;
begin
  Readln(s);
    j:=0;
for i:=Length(s) downto 1 do if s[i]=',' then begin
    j:=i;
  break;
 end;
 if j=0
  then Writeln('Net zapjatih')
  else Writeln('Pozicija posledney zapjatoy : ',j);
  Readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  p : integer;
begin
  s := Edit1.Text;
  p := RPos(',', s); // добавить StrUtils в список Uses
  if p > 0 then
    Label1.Caption := 'Позиция последней запятой: ' + IntToStr(p)
  else
    Label1.Caption := 'В тексте нет запятых';
end;