Помогите поправить процедурку. Опции

[Arti]

Помогите пишет ошибку но не пойму где и в чём

 Program Sun;
{-------------Входные параметры---------}
procedure VJD (YYYY,Y:word; MM,m,DD:byte; JD,A,B: real);
 begin
     
     Write('Год', 'Месяц', 'День'); Readln(YYYY, MM, DD);
IF MM>2 then
   begin
        Y:=YYYY;
        m:=MM;
   end
Else if (MM=1) or (MM=2) then
     begin
     Y:=YYYY-1;
     m:=MM+12;
     end
end
begin
   A:=Int(Y/100);
   B:=2-A+int(A/4);
   {-------------Вычисляем Юлианскую дату-------------}
   JD:=int(365.25*Y)+int(30.6001*(m+1))+DD+1720994.5+B;
   WriteLn(' JD = ',JD);
   end
end;