Pascal/Turbo Pascal - Necesito ayuda no compila

Bueno , el ejercicio es asi *Elaborar un algoritmo que una vez leida la hora en formato (horas,minutos,segundos) indique cual sera la hora un segundo despues..
El algoritmo esta bien hecho mi profesor ya melo ha dicho pero para este miercoles lo debo pasar a pascal y no me compila, tal vez la este errando en la anidacion de los if, necesito que alguien me ayude a comprender cual es mi error la verdad que hace 2 dias que me vengo quemando la cabeza y no me puedo dar cuenta en que es lo que estoy fallando.
Soy alumna de primer anio de Licenciatura en ciencias de la computacion ja no es de burra!!
Saludos y gracias a quien me pueda ayudar. Aqui les dejo el programa..

program SegundoDespues;
var
h, m, s:integer;
begin
writeln ('Ingrese hora');
read (h);
writeln ('Ingrese minutos');
read (m);
writeln ('Ingrese segundos');
read (s);
s := s+1;
if h>=24 or m>=60 or s>=60
then
writeln ('La hora es invalida')
else
if s=60
then begin
s := s-60;
m := m+1
end
else
if m=60
then begin
m := m-60;
h := h+1
end
else
if h=24
then
h := h-24
end;
writeln (h,':',m,':',s)
end.

Cada uno de los operandos del OR deben estar encerrados entre paréntesis:

if (h>=24) or (m>=60) or (s>=60) then ...

Sobra un end;

then
h := h-24;

Fijate ahi...

program SegundoDespues;
var
h, m, s:integer;
begin
writeln ('Ingrese hora');
read (h);
writeln ('Ingrese minutos');
read (m);
writeln ('Ingrese segundos');
read (s);
s := s+1;
if h>=24 or m>=60 or s>=60 then
writeln ('La hora es invalida')
else
if s=60 then begin
s := s-60;
m := m+1;
end
else
if m=60 then begin
m := m-60;
h := h+1;
end
else
if h=24 then
h := h-24;
end;
writeln (h,',',m,',',s)
end.