Programmteil wird beim compilieren übergangen

[thorstenf01]

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...