Переделать из с++ на Паскаль

[vadiprog]

#include <stdio.h>
#include <stdlib.h>

#define hour 60
#define circle 720

int main()
{
int x,h,m,t;
printf("type in the time\n");
printf("hours: ");
scanf("%d",&h);
printf("minutes: ");
scanf("%d",&m);
t= hour*h + m;
x = floor(circle*(floor(t/(circle/11))+1)/11 - t);
printf("till the next time the hands meet together, %d full minutes will pass",x);
return 0;
}

[JUDAS]

const 
 hour = 60.0;
 circle = 720;
function Main():integer;
var x,h,m,t : integer;
begin
 writeln('type in the time\n');
 writeln('hours: '); read (h);
 ('minutes: '); read (m);
 t:= hour*h + m;
 x := round(circle*(round(t/(circle/11))+1)/11 - t);
 writeln('till the next time the hands meet together, ',x,' full minutes will pass');
 Main := 0;
end;