Найдите программу которая считывает текст из файла и выводит на экран только строки, содержашие двузначные числа. 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 whilenoteof(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