Найдите программу которая считывает текст из файла и выводит на экран только строки, содержашие двузначные числа. Pascal.

1

2 uses crt;

3 var

4 f : text;

5 s : string;

6 i, code : integer;

7 begin

8 clrscr;

9 assign (f, 'filename. txt') ;

10 reset (f) ;

11 while not eof (f) do

12 begin

13 readln (f, s) ;

14 val (s, i, code) ;

15 if (length (s) = 2) and (code = 0) then

16 writeln (s) ;

17 end;

18 readln;

19 end.

20