Найдите программу которая...

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