Prośba o pomoc w prostym programie na komórkę.

Witam wszystkich,
Potrzebuję pomocy w napisaniu kilkunastu linijek kodu pod telefon Sony Ericsson k800i.
Na początku krótko opowiem jak to ma działać: Program ma pobrać z telefonu aktualną godzinę, a następnie wysłać ją przez port IRDA w standardzie RS232, RC5, czy innym prostym w obsłudze.
Nigdy nie pisałem programu pod telefon komórkowy, dlatego proszę o nakierunkowanie i wskazówki.
Próbuję samodzielnie napisać pobieranie godziny:

FUNCTION AktualnyCzas:string;                 
Var
 godz,min,sek,sek100:word;                      
 sgodz,smin,ssek,tmps:string;                 
Begin
 GetTime(godz,min,sek,sek100);
 Str(godz,sgodz);
 If length(sgodz)=1 Then sgodz:='0'+sgodz;
 Str(min,smin);
 If length(smin)=1 Then smin:='0'+smin;
 Str(sek,ssek);
 If length(ssek)=1 Then ssek:='0'+ssek;
 tmps:=sgodz+':'+smin+':'+ssek;                
 AktualnyCzas:=tmps;                           
End;

Begin
  // i w tym miejscu skrypt wysłania - (AktualnyCzas);                        
End.

Czy po skompilowaniu w Java ME program będzie działał poprawnie na komórce?
Niestety nie wiem jak napisać część odpowiedzialną za wysyłanie przez port IRDA.
Program ten ma być uzupełnieniem systemu elektronicznego i chcę aby umożliwiał szybkie ustawienie zegara w pozostałych urządzeniach.
Jestem otwarty na wszelkie inne propozycje.
Za wszelką pomoc bardzo serdecznie dziękuję:-)
Pozdrawiam.

Ekhm...

Jeśli mnie o tej porze jeszcze wzrok nie myli, to widze tu kod a la Delphi a nie Java... Nie wiem, jak Ty chcesz to skompilować w Java ME... ;p

Dzięki za odpowiedź, zapomniałem dopisać: to jest kod w Pascal i chcę go kompilować MIDletPascal - wtedy chodzi na komórce chyba:)
Niestety na programowaniu w Java w ogóle się nie znam, jestem elektronikiem i znam elektroniczny języki typu Bascom AVR. Dlatego proszę Was o wskazówki co robić. Mam nadzieję że znajdę tutaj pomoc.
Pozdrawiam.