Рассчитать, какое количество лет в среднем необходимо ожидать получения квартиры, и вывести на экран весь список с указанием ожидаемого года получения

label met;
const god=2011;
type
record_type = record
      fio: string[40];
      data: word;
end;
var kvar:array[1..1000] of record_type;
l,k,c,i,j,s,n2:integer;
ss,m,n:real;
begin
write('Введите количество нуждающихся в улучшении жилищных условий: ');readln(n2);
write('Сколько квартир выделяется ежегодно: ');readln(m);
n:=0+n2;
j:=1;k:=0;s:=0; met:
for i:=1 to n2 do
begin
  write(i,') ФИО: ');readln(kvar[i].fio);
  write('Год постановки на учет: ');readln(kvar[i].data);
  if (i>1) and (kvar[i].data<kvar[i-1].data) then begin
    writeln('Неупорядоченный набор. Начните заново!');goto met;
  end;
  end;
writeln;writeln('-----------------------------------------------------');
for i:=1 to n2 do
begin
  writeln('Ф.И.О: ',kvar[i].fio);
  writeln('Год постановки на учет: ',kvar[i].data);
  writeln('Ожидаемый год получения квартиры: ',god+k);
  writeln('-----------------------------------------------------');
  inc(j);    l:=(god+k)-god;
  if j>m then begin
     j:=1;
     inc(k);
  end;
  s:=s+l;
  ss:=s/n2
end;
writeln('В среднем необходимо ожидать получения квартиры = ',ss, ' лет');
end.