Переведите из питона в паскаль

defvert(ch,m):
""""""""""""
if(ch//10==m %10) and (ch%10== m//10)
return 1
else:
return 0
tmp=str (input())
ch=int(tmp[0])*10+int(tmp[1])
m=int((tmp[3])*10+int(tmp[4])
"""print (ch,m)"""
vr=0
whilenotvert(ch,m):
m+=1
vr+=1
if m==60
m=0
ch+=1
ifch==24
ch=0
print(vr)