TPW probleme de ord

program prog;
uses wincrt;
type tab=array[1..30] of string;
var
  n,s,i:integer;
  T:tab;


procedure remplir(var n:integer;var T:tab);
 begin
  repeat
   write('n=');
   readln(n);
  until (n in [2..30]);
  repeat
  for i:=1 to n do
   begin
    write('T[',i,']=');
    readln(T[i]);
   end;
  until (T[i]<>'');
  end;

procedure nombre(T:tab;n:integer);
 var
 a:string;
 j:integer;
 begin
  s:=0;
  for i:=1 to n do
   begin
    for j:=1 to length(T[i]) do
     begin
      a:='';
      if ((ord(T[j]) in [48..57]) then  {mon prbleme est ici}
       begin
        a:=a+T[j];
       end
       else a:='0';
       s:=s+val(a);
    end;
    end;
   end;

procedure affichage(T:tab;n:integer);
 begin
  writeln(s);
 end;


BEGIN
 remplir (n,T);
 nombre(T,n);
 affichage(T,n);
end.