Помогите сделать задачу в Pascal / В файле даны строки с цифрами и буквами, подсчитать сумму всех строк в которых есть числа и нет букв.
Пример файла:
12312
12312
йцу12
кйц
12312
(Посчитать сумму чисел из строк в которых нет букв)

Путь к файлу не забудь поменятьvar  t: text;  st: string;  s, i: integer;  c: char;begin  s := 0;  st := '';  assign(t, 'ПУТЬ К ФАЙЛУ');  reset(t);  while not eof(t) do  begin    read(t, c);    if (ord(c) <> 13) then      st := st + c    else if TryStrToInt(st, i) then    begin      s := s + i;      st := '';    end    else      st := '';  end;  if TryStrToInt(st, i) then    s := s + i;  close(t);  writeln(s);end.