Программа работает неправильно. Можете исправить ошибку? Справка о междугородном телефонном разговоре...

program lab_10_41;
type phone=record
     nomer:integer;
     day:integer;
     mesyac:integer;
     god:integer;
     chas:integer;
     minuta:integer;
     kod:integer;
     othernomer:integer;
     time:integer;
     categoriya:integer;
     tarif:real;
     end;
var a:array [1..20] of phone;
  m,max,k,i,n:integer;
  b:string;
begin
writeln('Введите количество разговоров:');
readln(n);
for i:= 1 to n do
   begin
   a[i].nomer:=111111+random(888888);
   a[i].day:=1+random(30);
   a[i].mesyac:=1+random(11);
   a[i].god:=2000+random(12);
   a[i].chas:=random(23);
   a[i].minuta:=random(59);
   a[i].kod:=111+random(888);
   a[i].othernomer:=1111111+random(8888888);
   a[i].time:=1+random(99);
   a[i].tarif:=0.5+random(5);
   a[i].categoriya:=1+random(2);
   case a[i].categoriya of
   1:b:='Срочный';
   2:b:='Обычный';
   end;
  end;
  for i:=1 to n do begin
                   write('Номер телефона абонента: ');
                   writeln(a[i].nomer);
                   write('Дата: ');
                   writeln(a[i].day,'.',a[i].mesyac,'.',a[i].god);
                   write('Время: ');
                   writeln(a[i].chas,':',a[i].minuta);
                   write('Код города: ');
                   writeln(a[i].kod);
                   write('Номер телефона в другом городе: ');
                   writeln(a[i].othernomer);
                   write('Продолжительность разговора в минутах: ');
                   writeln(a[i].time,' минут(ы)');
                   write('Категория разговора: Срочный=1, Обычный=2. ');
                   writeln(a[i].categoriya);
                   write('Стоимость 1 минуты: ');
                   writeln(a[i].tarif);
                   writeln;
                   end;
                   
max:=0;
writeln ('Введите месяц: ');
readln(m);
for i:=1 to n do
if (m=a[i].mesyac) and (a[i].time>max) and (a[i].categoriya=1) then
                   begin
                   k:=i;
                   max:=a[i].time;
                   end;
writeln('Дата самого длинного срочного телефонного разговора за указанный месяц: ');
write('Номер телефона абонента: ');
writeln(a[i].nomer);
write('Дата: ');
writeln(a[i].day,'.',a[i].mesyac,'.',a[i].god);
write('Время: ');
writeln(a[i].chas,':',a[i].minuta);
write('Код города: ');
writeln(a[i].kod);
write('Номер телефона в другом городе: ');
writeln(a[i].othernomer);
write('Продолжительность разговора в минутах: ');
writeln(a[i].time,' минут(ы)');
write('Стоимость 1 минуты: ');
writeln(a[i].tarif);
writeln;
end.

writeln(a[k].nomer);
write('Дата: ');
writeln(a[k].day,'.',a[k].mesyac,'.',a[k].god);
write('Время: ');
writeln(a[k].chas,':',a[k].minuta);
write('Код города: ');
writeln(a[k].kod);
write('Номер телефона в другом городе: ');
writeln(a[k].othernomer);
write('Продолжительность разговора в минутах: ');
writeln(a[k].time,' минут(ы)');
write('Стоимость 1 минуты: ');
writeln(a[k].tarif);