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

Question

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

Answer 1

Путь к файлу не забудь поменять

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.