Вычислить сумму чисел, представленных в строковом виде

uses crt;
const max=11;
      cf=['0'..'9'];
      lb=['A'..'Z','a'..'z'];
var a:array[1..max] of string;
    n,i,j,k:byte;
    s1:string;
    sm,t,c:integer;
    s:char;
begin
clrscr;
repeat
write('Введите количество строк до 11 n=');
readln(n);
until n in [1..max];
for i:=1 to n do
repeat
writeln('Введите строку из цифр и латинских букв:');
readln(a[i]);
k:=0;
for j:=1 to length(a[i]) do
 if not(a[i][j] in cf)and not(a[i][j] in lb)then
  begin
   k:=1;
   break;
  end;
until k=0;
writeln('Числа, входящие в строки:');
sm:=0;
for i:=1 to n do
 begin
  for j:=1 to length(a[i]) do
  if (a[i][j] in cf)and not (a[i][j-1] in cf) then{если цифра, а перед ней не цифра}
   begin
    k:=j;s1:='';
    while (a[i][k] in cf)and(k<=length(a[i]))do {пока цифры и не конец строки}
     begin
      s1:=s1+a[i][k];{составляем слово}
      k:=k+1;{по 1 символу}
     end;
    write(s1,' ');
    val(s1,t,c);
    sm:=sm+t;
   end;
  end;
writeln;
writeln('Сумма=',sm);
if sm mod 2=0 then
 begin
  writeln('Сумма-число четное!');
  write('Введите символ для поиска s=');
  readln(s);
  if pos(s,a[n])>0 then write('Символ ',s,' есть в последней строке')
  else write('Символа ',s,' в последней строке нет');
 end
else writeln('Сумма-число нечетное!');
readln
end.