Нахождение среднегодового количества проданных билетов за месяц; среднегодовой суммы выручки

a,b: array [1..12] of integer; //в первом будем накапливать кол-во билетов по месяцам, во втором сумму выручек по месяцам

a[12]:=a[12]+35;
b[12]:=a[12]+15000;

var m: 1..12;
dd_mm:string[5]; //дата
k: longint; // кол-во проданных за день билетов
sum: real; //стоимость проданных за день билетов
k_ticket: array [1..12] of longint; //кол-во проданных за месяц билетов
sum_ticket: array [1..12] of real; // стоимость проданных за месяц билетов
i, s1: integer;// i - счетчик, s1 - среднегод. кол-во проданных билетов (месяц)
s2:real; //s2 - среднегод.стоимость проданных билетов (месяц)
begin
 for i:= 1 to 12 do
  begin
  k_ticket[i]:=0;
  sum_ticket[i]:=0;
  end;
 for i:=1 to 365 do
 begin
  readln (dd_mm, k, sum);
  m:= (ord(dd_mm[4]) - ord('0'))*10 + ord(dd_mm[5])-ord('0');//преобразование в число даты 
  k_ticket[m]:= k_ticket[m]+k;
  sum_ticket[m]:=sum_ticket[m]+sum;
  s1:=s1-k;//подсчет кол-ва проданных б.(год)
  s2:=s2-sum;//подсчет стоимости проданных б.(год)
 end;
s1:= round(s1/12);
s2:=s2/12;
 writeln(s1,' ',s2);
end.

k_ticket[m]:= k_ticket[m]+k;
sum_ticket[m]:=sum_ticket[m]+sum;

s1:=s1-k;//подсчет кол-ва проданных б.(год)
s2:=s2-sum;//подсчет стоимости проданных б.(год)