Pomoc pri programovani v Pascale

program dni;
uses crt;
var mesiace: array [1..12] of integer;
    i,den,mesiac,mesiacc,denn,pocet,pocet_druhy,rozdiel,ktory_den: integer;

begin
clrscr;

mesiace[1]:=31;
mesiace[2]:=28;
mesiace[3]:=31;
mesiace[4]:=30;
mesiace[5]:=31;
mesiace[6]:=30;
mesiace[7]:=31;
mesiace[8]:=31;
mesiace[9]:=30;
mesiace[10]:=31;
mesiace[11]:=30;
mesiace[12]:=31;

writeln('Zadajte prvy datum');
write('Mesiac (1-12): '); readln(mesiac);
write('Den(1-30/31): '); readln(den);
writeln;
writeln('Zadajte druhy datum');
write('Mesiac (1-12): '); readln(mesiacc);
write('Den(1-30/31): '); readln(denn);
writeln;

if mesiac>1 then
   for i:=1 to (mesiac-1) do pocet:=pocet+mesiace[i];
if mesiacc>1 then
   for i:=1 to (mesiacc-1) do pocet_druhy:=pocet_druhy+mesiace[i];

pocet:=pocet+den;
pocet_druhy:=pocet_druhy+denn;
if pocet > pocet_druhy then rozdiel:=pocet-pocet_druhy
   else rozdiel:=pocet_druhy-pocet;

writeln('Medzi datumom ',den,'.',mesiac,'. a datumom ',denn,'.',mesiacc,'. ubehlo ',rozdiel,' dni.');

while (pocet > 7 ) do
      pocet:=pocet-7;
if pocet = 1 then writeln ('Prvy datum pripada na pondelok');
if pocet = 2 then writeln ('Prvy datum pripada na utorok');
if pocet = 3 then writeln ('Prvy datum pripada na stredu');
if pocet = 4 then writeln ('Prvy datum pripada na stvrtok');
if pocet = 5 then writeln ('Prvy datum pripada na piatok');
if pocet = 6 then writeln ('Prvy datum pripada na sobotu');
if pocet = 7 then writeln ('Prvy datum pripada na nedelu');

while (pocet_druhy > 7 ) do
      pocet_druhy:=pocet_druhy-7;
if pocet_druhy = 1 then writeln ('Druhy datum pripada na pondelok');
if pocet_druhy = 2 then writeln ('Druhy datum pripada na utorok');
if pocet_druhy = 3 then writeln ('Druhy datum pripada na stredu');
if pocet_druhy = 4 then writeln ('Druhy datum pripada na stvrtok');
if pocet_druhy = 5 then writeln ('Druhy datum pripada na piatok');
if pocet_druhy = 6 then writeln ('Druhy datum pripada na sobotu');
if pocet_druhy = 7 then writeln ('Druhy datum pripada na nedelu');

readkey;
end.