Como resolver, ELSE não esperado :(

[Visitante: jfnNN]

QUESTÃO

1) Faça um programa que um usuário deverá digitar uma frase que pode ser de Liberação da máquina para uso ou de Interdição.

a) Caso o usuário opte por digitar uma frase de Liberação (deverá escolher a opção de Liberação), digitar a frase que quiser e o programa deverá imprimir 2 vezes em tela a frase digitada, com 1 espaços entre elas.

Caso o usuário opte por digitar uma frase de Interdição (deverá escolher a opção de Interdição), digitar a frase que quiser e o programa deverá imprimir 3 vezes em tela a frase digitada, com 2 espaços entre elas.

Exemplo:

Caso o usuário escolha a opção 1 (liberação) e digite “Máquina acessível por qualquer usuário!”, aparecerá em tela:

Máquina acessível por qualquer usuário!

Máquina acessível por qualquer usuário!

Program Liberacao_de_Maquina ;
Var
    interdicao,liberacao:integer;
    frase:string;


Begin

    writeln ( ' ***RESPONDE AS SEGUINTES PERGUNTAS*** ');
    writeln;writeln;
    write ( 'DIGITE 1 - PARA LIBERAÇÃO DA MAQUINA ');
    writeln;writeln;
    write ( 'DIGITE 2 - PARA INTERDIÇÃO DA MAQUINA ');
    writeln;writeln;
    write ( 'QUER LIBERAR A MÁQUINA? ');
    read (liberacao);
    write ( 'DIGITE A FRASE PREFERIDA DE LIBERAÇÃO: ');
    read (frase);
    if liberacao=1 then
    writeln ( 'MÁQUINA ACESSÍVEL POR QUALQUER USUÁRIO ');
    writeln;writeln;
    writeln ( 'MÁQUINA ACESSÍVEL POR QUALQUER USUÁRIO ')
    else writeln ( '...',frase)
    writeln;writeln;
    writeln ( '...',frase);
    writeln;writeln;
    writeln ( '...',frase);

End.

[Fazzioni]

seu erro esta ak....

if liberacao=1 then
    writeln ( 'MÁQUINA ACESSÍVEL POR QUALQUER USUÁRIO ');
    writeln;writeln;
    writeln ( 'MÁQUINA ACESSÍVEL POR QUALQUER USUÁRIO ')
    else writeln ( '...',frase)

você deve colocar o BEGIN junto com o THEN para o loop ficar ate o end....

seu codigo fica assim...:

Program Liberacao_de_Maquina ;
Var
    interdicao,liberacao:integer;
    frase:string;


Begin

    writeln ( ' ***RESPONDE AS SEGUINTES PERGUNTAS*** ');
    writeln;writeln;
    write ( 'DIGITE 1 - PARA LIBERAÇÃO DA MAQUINA ');
    writeln;writeln;
    write ( 'DIGITE 2 - PARA INTERDIÇÃO DA MAQUINA ');
    writeln;writeln;
    write ( 'QUER LIBERAR A MÁQUINA? ');
    read (liberacao);
    write ( 'DIGITE A FRASE PREFERIDA DE LIBERAÇÃO: ');
    read (frase);
    if liberacao=1 then
    Begin
    writeln ( 'MÁQUINA ACESSÍVEL POR QUALQUER USUÁRIO ');
    writeln;writeln;
    writeln ( 'MÁQUINA ACESSÍVEL POR QUALQUER USUÁRIO ')
    end  // ak não vai o ponto e virgula porque usei o ELSE
    else writeln ( '...',frase); //DEPOIS DO ELSE COLOCOQUE O BEGUIN, e o end no final do loop dele.
    writeln;writeln;
    writeln ( '...',frase);
    writeln;writeln;
    writeln ( '...',frase);

End.

[Visitante: jfnNN]

valeu FAZZIONI muito obrigado camarada.