Дан текстовый файл содержащий строки и столбцы цифр . Найдите количество строк и общее количество элементов.

В файле написано

1 2 3
7 8 9 11 12
3 2
Pascal ABC 1.8
1 2 3 4

Программа распознаёт только целые числа.Var   f:file of char;   C:char;   k,s:integer;BeginAssign(f,'file.txt');Reset(f);k:=0;s:=1;Write('Найденные числа:');RepeatRead(f,C);if ('0'<=C)and(C<='9') then   Begin   k:=k+1;   Write(' ');   While ('0'<=C)and(C<='9')and Not Eof(f) do      Begin      Write(C);      Read(f,C);      if C=#13 then s:=s+1;      End;   End;Until Eof(f);Close(f);WriteLn;WriteLn('Их количество: ',k);WriteLn('Количество строк в файле: ',s);End.Результат работы программы:Найденные числа: 1 2 3 7 8 9 11 12 3 2 1 8 1 2 3 4Их количество: 16Количество строк в файле: 5Чтобы программа работала данный файл должен находиться в одной папке с программой: