Проблема при написании програмы. Пожалуйста помогите)

[Вася123456709]

создать список студентов (количество студентов равно 10) вашей группы с такими сведениями: фамилия, имя, дата рождения (число, месяц и год). Вывести в файл фамилии и имена тех студентов кто родился в октябре или имеет имя Александр.
Программа по работе с файлами.
Проблема в том что у меня не выводит данные (
Вот код програмы

Program rec_no_var;
  const nmax=10;
type
  refdat=record
    FamilyName, Name:string[30];
    chuslo:string;
    month:string[15];
    year:string;
  end;
  refres=record
    FamilyName, Name:string[30];
  end;
 masb=array[1..nmax] of refres;
var
  a:refdat;
  b:masb;
  k:0..nmax; i:1..nmax;
  dat,res:text;
Begin
  assign(dat, 'C:\dat.txt'); reset(dat);
  assign(res, 'C:\res.txt'); rewrite(res);
  writeln(res, 'Вихідні відомості');
  k:=0;
  repeat
    readln(dat, a.FamilyName);
    readln(dat, a.Name);
    readln(dat, a.chuslo);
    readln(dat, a.month);
    readln(dat, a.year);
    writeln(res, a.FamilyName);
    writeln(res, a.Name);
    writeln(res, a.chuslo);
    writeln(res, a.month);
    writeln(res, a.year);
    writeln(res);
      if (a.month='жовтень') or (a.Name='Олександр') then
        begin
          k:=k-1;
          b[k].FamilyName:=a.FamilyName;
          b[k].Name:=a.Name;
        end;
      until eof(dat);
        writeln(res, 'Шукані відомості');
          if (k=0)then
            writeln(res, 'Таких немає')
          else
            for i:=1 to 10 do
              begin 
                writeln(res, b[i].FamilyName);
                writeln(res, b[i].Name);
                writeln(res);
              end;
  close(dat); close(res);
End.

[disbnt]

1.dat,res:text;// textfile
2.assign(dat, 'C:\dat.txt');// не assign ,а - assignfile
3.close(dat);// не close ,а - closefile
4.k:=k-1;// наверное сдесь надо плюсовать
5.for i:=1 to 10 do// зачем это ... может лучше так for i:=1 to k+1 do
или k:=1;а после цикл for i:=1 to k do

[disbnt]

k:=k-1;
b[k].FamilyName:=a.FamilyName;
b[k].Name:=a.Name;
Здесь вы используете минусовое значение элементов массива
b[-1].FamilyName:=a.FamilyName;
b[-1].Name:=a.Name;
b[-2].FamilyName:=a.FamilyName;
b[-2].Name:=a.Name;
и так далее....
Вообщем плюсуйте k // k:=k+1;

[min@y™]

Научить тебя пользоваться дебаггером?

[Вася123456709]

Спасибо, я не откажусь от помощи. Буду очень признательный)
Всем спасибо за помощь, ошибку исправил. Программа работает.

[min@y™]

Спасибо, я не откажусь от помощи.

Материалы:
- раз
- два
- три
- четыре

[Вася123456709]

Спасибо за помощь)