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