Выбрать из исходного массива символьных строк те, которые содержат только цифровые символы

uses crt;
const nmax=50;{максимальный размер массива}
type Tmas=array[1..nmax] of string[18];{тип массива, строки длиной до 18 символов}
procedure Summa(x:byte;m:Tmas;var sm:comp);
{процедура по условию задачи, входные параметры - размер массива и сам массив, выходной параметр - сумма}
var i,k,j,ks:byte;{разные счетчики}
    t:comp;{переменная для перевода строки в число}
    c:integer;{код ошибки при переводе}
begin
writeln;
writeln('Stroki iz cifr:');
sm:=0;ks:=0;{сначала сумма и количество строк из цифр = 0}
for i:=1 to x do{идем по массиву}
  begin
    k:=0;{количество цифр в строке=0}
    for j:=1 to length(m[i]) do {идем по каждой строке}
    if m[i][j] in ['0'..'9'] then inc(k);{если цифра, считаем}
    if k=length(m[i]) then{если все цифры}
       begin
         writeln(m[i]);{выводим строку}
         val(m[i],t,c);{переводим в число}
         sm:=sm+t;{прибавляем к сумме}
         inc(ks);{считаем строку}
       end;
   end;
writeln;
if ks=0 then write('Zadannyh strok net!'){если нет нужных строк, сообщаем}
else write('Summa=',sm:0:0);{если есть, выводим сумму}
end;{конец процедуры}
var s:Tmas;{массив}
    n,i:byte;{его размер и счетчик цикла}
    sum:comp;{сумма}
begin
clrscr;
repeat
write('Vvedite kolichestvo strok massiva n=');
readln(n);
until (n>0)and(n<=nmax);{вводим с проверкой размер массивва}
writeln('Vvedite ',n,' strok:');
for i:=1 to n do {вводим массив}
  begin
    write('Stroka ',i,' ');
    readln(s[i]);
  end;
Summa(n,s,sum);{вызываем процедуру с фактическими параметрами}
readln
end.