справка о междугороднем тел. разговоре содержит: номер телефона абонента(6 цифр),дату(год, месяц, число)

[@RH@nhel]

Помогите составить прогу на паскале. Задание: справка о междугороднем тел. разговоре содержит: номер телефона абонента(6 цифр),дату(год, месяц, число),время(час, минута), код города(3 цифры), номер телефона в другом городе(7 цифр), продолжительность разговора(в минутах),категорию(срочный, обычный) и тариф(плата в рублях за минуту). Определить дату такого телефонного разговора, которой является максимальным по продолжительности среди срочных разговоров за указанный месяц. Заранее СПАСИБО.

[ОДИНОЧЕСТВО В СЕТИ]

program tel;
type phone = record
  number: string;
  date:integer;
  month: integer;
  year: integer;
  hour:integer;
  minute:integer;
  opp:string;
  time:integer;
  category:string;
  tarif:real;
end;
const n=10;
var a:array [1..n] of phone;
  i:integer;
  m,max,k:integer;
begin
for i:= 1 to n do
   begin
     ReadLn(a[i].number);
     ReadLn(a[i].date);
     ReadLn(a[i].month);
     ReadLn(a[i].year);
     ReadLn(a[i].hour);
     ReadLn(a[i].minute);
     ReadLn(a[i].opp);
     ReadLn(a[i].time);
     ReadLn(a[i].category);
     ReadLn(a[i].tarif);
  end;
max:=0;
writeln ('input month:');
readln(m);
for i:= 1 to n do
  if (a[i].month=m) and (a[i].time>max) and (a[i].category='sr') then 
    begin
       k:=i;
       max:=a[i].time;
    end;
writeln(-----------------);
writeLn(a[k].number);
writeln(a[k].date:4,'-',a[k].month:4,' - ',a[k].year:6);
writeLn(a[k].hour:4,':',a[k].minute:4);
writeln(a[k].opp);
writeLn(a[k].time);
writeln(a[k].category);
writeln(a[k].tarif);
readln;
end.

наводи красоту и дабавь проверки ввода! и хватит кросспостить!

[@RH@nhel]

Я весьма вам благодарен,=) СПАСИБО