Hайти натуральное i, что s[i] - последняя по порядку запятая - Паскаль

[Tayfun]

Если честно, то НЕлюблю ошибки искать. Вот рабочий код:

program FORDIANOCHKA;
uses crt;
var
f:text;
ch:array[1..100] of integer;
b2,b,s,s2,ss:string;
sum,n,c,i,j,e:integer;
s_a:real;
bb:boolean;
begin
clrscr;
assign(f,'fox.txt');
reset(f);
s2:='1234567890';
while not eof(f) do begin
readln(f,s);
c:=length(s);
for i:=1 to c do begin
b:=copy(s,i,1);
bb:=false;
for j:=1 to 10 do begin
b2:=copy(s2,j,1);
if b=b2 then begin bb:=true; ss:=ss+b; end;
end;
if bb=false then begin if ss<>'' then begin n:=n+1; val(ss,ch[n],e); end; ss:='';
end;
end;
end;
if bb=true then begin if ss<>'' then begin n:=n+1; val(ss,ch[n],e); end; ss:=''; end;
for i:=1 to n do begin write(ch[i],' '); sum:=sum+ch[i]; end;
if n>0 then s_a:=sum/n;
writeln;
writeln('SREDNEE ARIFMETICHESKOYE->',s_a:1:4);
readkey;
end.