проблема в выдачи информации

[Makspane]

Написал программу, которая выводит на екран в листбокс праздники, которые есть в оприделенных месяцах( месяца выбирает) все норм работает, но почемуто именно когда в ТРАВЕНЬ праздники не выводит .....

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  holidays = Record
    January : array [1..10] of string;
    February  :array [1..10] of string;
    March : array [1..10] of string;
    April :array [1..10] of string;
    May  : array [1..10] of string;
    June  : array [1..10] of string;
    July   : array [1..10] of string;
    August  : array [1..10] of string;
    September  : array [1..10] of string;
    October   : array [1..10] of string;
    November  : array [1..10] of string;
    December  : array [1..10] of string;
  end;

var
  Form1: TForm1;
  F:Textfile;
  i,n:integer;
  s,s2,s3:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.Clear;
s3 := combobox1.Text;
AssignFile(F,'1.txt');
reset(f);
while not eof(F) do
begin
  readln(F,s);
  readln(F,n);
  for i := 1 to n do
  begin
    readln(f,s2);
    if s = s3 then
    listbox1.Items.Add(s2);
  end;
  combobox1.Items.Add(s);
end;

closefile(f);
end;

вот код, а вот мой файл, отку считывается..
Сiчень
3
1 січня-Новий рік
7 січня-Різдво
14 січня-Старій Новій рік
Лютий
1
хрещення
Березень
1
8 березня- Міжнародний жіночий день
Квiтень
1
1 квітня- День сміху
Травень
2
1 рпрот
9 пор
Червень
0
Липень
0
Серпень
1
24 серпня- Незалежність
Вересень
0
Жовтень
0
Листопад
0
Грудень
1
25 грудня- Святий Миколай





________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.