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

[FredPerry]

Program fail;
var
	f1 : text;
	i, n : integer;
	s : string;
	a : set of char;
begin
	Assign(f1, '1.txt');
	Rewrite(f1);
	WriteLn('Enter counter of strings: ');
	ReadLn(n);
	a := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];

	for i := 1 to n do
	begin
		ReadLn(s);
		WriteLn(f1, s);
	end;

	Close(f1);
	Reset(f1);

	i := 1;
	s := '';

	while not eof(f1) do
	begin
		ReadLn(f1, s);
		for i := 1 to length(s) do
		begin
			if s[i] in a then
			begin
				if (s[i + 1] in a) and (i + 1 <= n) then
					WriteLn('stroka: ',s);
			end;
		end;
		s := '';
	end;
	Close(f1);
end.

не понятно почему не выводит строку

[Stilet]

if (s[i + 1] in a) and (i + 1 <= n) then

Поставь сюда точку прерывания, и посмотри срабатывает ли условие.