Pascal/Turbo Pascal - 2 writeln despues de then, con else despues?

Pues eso, que no soy capaz de escribir dos lineas despues de un then, si despues tengo un else, me da error al compilar, ¿no se puedes hacer?, si se puede decirme como please

IF ENCONTRADO
THEN
WRITELN
WRITELN;
ELSE
WRITELN;
WRITELN;

Asi lo he escrito y no compila.

Muchas gracias, Salu2

Se debe a que si luego del then o el else vas a ejecutar más de una sentencia o llamada a procedimiento/función, debes encerrarlo todo con un bloque begin end;

F ENCONTRADO THEN
begin { el then comienza aquí }
WRITELN;
WRITELN;
end { y termina aquí pero si le sigue un else no lleva ; }
ELSE
begin
WRITELN;
WRITELN;
end; { aquí termina el else y el if por lo tanto lleva ; }

Muchas gracias por la respuesta.

Muchas gracias por la respuesta.

Es que tao liaillo y no me ha dao tiempo a responderte antes, sorry :P