problem mit gettime

[anthro]

Hallo zusammen
ich bekomme immer ein problem wenn ich versuche eine gettime function zu compilieren zbsp:

program uhr; 
uses crt, dos; 
var std, min, sek, s100, jahr, mon, tag, wtag : word; 

function fnull(zahl : word) : string; 
var temp : string; 
begin 
  str(zahl,temp); 
  if zahl<10 then temp:='0'+temp; 
  fnull:=temp; 
end; 

begin 
  clrscr; 
  repeat 
	getdate(jahr, mon, tag, wtag); 
	gettime(std, min, sek, s100); 
	gotoxy(30,12); 
	write(fnull(tag)+'.'+fnull(mon)+'.',jahr, 
		  ', '+fnull(std)+':'+fnull(min)+':'+fnull(sek)); 
  until keypressed; 
end.

da erhalte ich den compiler fehler:
Type mismatch...
was meint ihr dazu? ich benutze virtual pascal 2.1 in dos umgebung
freundlicher gruss anthro

 

[vop]

Wo genau erhalst du den Type mismatch ( Typen-Fehler)?

vop

 

[anthro]

hat sich erledigt. ich habe einen anderen compiler benutzt.

danke