Посоветуйте.В чем кривость кода? что нужно исправить

program kvartplata;
uses crt;
 
const N=7;             {Количество услуг}
yslyga:array[1..N] of string[19]=('С жилья в т.ч(кв.м) |','Отопление(кв.м)    ','Хол.вода(чел)      ',
'Гор.вода(чел)      ','Канализация(чел)     ','Газ(м.куб)          ','Электричество(кВтч)   ');
var
{таблица результатов}
sum:array[1..N+1,1..4] of real;
{N+1-я строка используется как буфер
 при сортировке таблицы}
den,mes,god:integer; {день/месяц/год}
i,j:integer;         {индексы}
itogo:real;          {ИТОГО}
peni:real;           {Пени}
ploshad:real;        {Общая площадь}
platelshik:string;   {Плательщик}
kol:integer;         {Количество человек}
adres:string;        {Адрес}
dolg:real;           {долг}
gas:real;            {Газ}
elektr:real;          {Электричество}
mop:real;             {Местное Освещение}
begin
clrscr;
writeln('***Учет квартплаты***');
writeln('***Внимание!!!!Тарифы на услуги за 2010 год***');
{Ввод исходных данных}
write('Дата: ');
read(den,mes,god);
write('Адрес: ');
readln(adres);
write('Плательщик: ');
read(platelshik);
write('Общая площадь(кв.м): ');
read(ploshad);
write('Кол. человек: ');
read(kol);
write('Введите количество потребленного газа(м.куб): ');
read(gas);
write('Введите количество потребленной Электроэнергии Э/Э (кВтч): ');
read(elektr);
write('Введите количество Э/Э МОП: ');
read(mop);
writeln;
writeln('      Услуга       |Объем ком.|Обоснованный|   Начислено    |   Итого    ');
writeln('                   |   услуг  |   тариф    |                |            ');
writeln('-------------------------------------------------------------------------');
{Объем комунальных услуг}
sum[1,1]:=ploshad;
sum[2,1]:=ploshad;
sum[3,1]:=kol;
sum[4,1]:=kol;
sum[5,1]:=kol;
sum[6,1]:=gas;
sum[7,1]:=elektr+mop;
{Обоснованый тариф}
sum[1,2]:=11.05;     {С жилья в т.ч}
sum[2,2]:=17.81;     {Отопление}
sum[3,2]:=46.07;     {Хол.вода}
sum[4,2]:= 238.99;   {Гор.вода}
sum[5,2]:= 50.02;    {Канализация}
sum[6,2]:= 2.82;     {Газ}
sum[7,2]:= 2.42;     {Электричество}
{Начислено}
for i:=1 to N do
sum[i,3]:=sum[i,1]*sum[i,2];
{Итого}
for i:=1 to N do
sum[i,4]:=sum[i,3];
for i:=1 to N do
writeln(yslyga[i],'|     ',sum[i,1],'         ',sum[i,2],'       ',sum[i,3]:5:2,'        ',sum[i,4]:5:2);
begin
for i:=1 to N do
itogo:=itogo+sum[i,3];
writeln('Итого: ',itogo:5:2);
end;
begin
write('К оплате за :');
case mes of
1:write('Январь');
2:write('Февраль');
3:write('Март');
4:write('Апрель');
5:write('Май');
6:write('Июнь');
7:write('Июль');
8:write('Август');
9:write('Сентябрь');
10:write('Октябрь');
11:write('Ноябрь');
12:write('Декабрь');
end;
write(' ',god);
writeln;
writeln('Всего: ',itogo:5:2);
end;
end.