Delphi-PRAXiS - Delphi Programmteil wird beim compilieren übergangen

Hy!
Woran kann es liegen, das der folgende Pascal Programmteil beim compilieren übergangen wird ( keine blaue Zeilenmarkierung)?

Code:

			... 

procedure Ellipse;

begin

      salfa0:=alfaik;

      sh0:=arctan((zik+Hk)/rik)*180/Pi;

      sa:=arctan(Ra/rik)*180/Pi;

      sbo:=arctan((zik+Hk+Ra)/rik)*180/Pi;

      sbo:=sbo-sh0;

      sbu:=arctan((zik+Hk-Ra)/rik)*180/Pi;

      sbu:=sh0-sbu;

end;

procedure Datum(Tag: integer);

var   i, j, k, l, Summe         :integer;

const Monatsende :array[1..12] of Integer=(31,29,31,30,31,30,31,31,30,31,30,31);

      Mon        :array[1..12] of string =('Jan','Feb','M„r','Apr','Mai','Jun',

                                           'Jul','Aug','Sep','Okt','Nov','Dez');

begin

      j:=0;

      repeat j:=j+1;

             Summe:=0;

             for i:=1 to j do Summe:=Summe+Monatsende[i];

             k:=Tag-Summe;

             l:=0;

             if k<=0 then begin

             l:=1;

             Dat:=k+Monatsende[j];

             Monat:=Mon[j]; end;

      until  l=1;

end;

...

Vielen dank im voraus für eure Hilfe...