Определите, каким по счету символом с начала текста является вторая запятая

k:=POS(',',s)

program stroka;
uses crt;
var s:string;
k2,k,i,i2:integer;
begin
clrscr;;
readln(s);
k:=length(s);
k2:=0;
for i:=1 to k do begin
if s[i]=',' then
k2:=k2+1;
if (k2=2) then begin
i2:=i;
break;
end;
end;
k:=0;
for i:=1 to i2 do
k:=k+1;
write('Номер второй запятой=',k);
end.

For k:=POS(',',s)+1 to Length(s) do
  If s[k]=',' then
  Begin
    Writeln(k);
    Break;
  End;

uses crt;
var s:string;
    i,k,p:byte;
begin
clrscr;
writeln('Введите строку с запятыми');
readln(s);
k:=0;
p:=0;
i:=1;
while(i<=length(s))and(p=0) do
 begin
  if s[i]=',' then inc(k);
  if k=2 then p:=i
  else inc(i)
 end;
if p=0 then write('В строке нет двух запятых')
else write('Номер второй запятой=',p);
readln
end.

Delete(s,POS(',',s),1);
Writeln(POS(',',s)+1);

Var s : String;
Begin
  Readln(s);
  Delete(s,POS(',',s),1);
  Writeln(POS(',',s)+1);
End.