'ELSE' não esperado

[Chriexpe]

Olá pessoal, estou no começo do curso de programação e sempre me deparo neste erro, eu uso pascalzim, e fico "brincando" criando programinhas novos...eu tenho certeza absoluta que tem uns erros fatais neste código e queria a ajuda de vocês

 

Meu código:

program doenca;var s, n, d, e, ns, sei, doenca: integer;beginwriteln('Olá tudo bem? (S/N)');if 's'=s then;beginwriteln('Que bom!');readkeyendelse 'n'=nbeginwriteln('Porque?');writeln('Estou doente (D)');writeln('Enjoado (E)');readln(d);beginwriteln('Qual doença? (NS/sei)')if ns thenclose else s then  writeln('Qual?')  readln(doenca)  end endendwriteln('Portanto a causa de você não estar bem é da doença:', doenca);close;end.

[Simon Viegas]

Olá.

 

Para saber a resposta do usuário, você precisa de uma variável para colher ela, ex.:

writeln('Olá tudo bem? (S/N)');readln(bem);if bem='s' then

Ao analisar as respostas, você deve utilizar a mesma variável.. ex.:

writeln('Olá tudo bem? (S/N)');readln(bem);if bem='s' then  begin  writeln('Que bom!');  readkey  endelse   if bem='n' then     begin    writeln('Porque?');    writeln('Estou doente (D)');    writeln('Enjoado (E)');

Nesse caso, como são respostas "mutualmente exclusivas entre si", nem precisaria do segundo if, ex.:
 

writeln('Olá tudo bem? (S/N)');readln(bem);if bem='s' then  begin  writeln('Que bom!');  readkey  endelse     begin    writeln('Porque?');    writeln('Estou doente (D)');    writeln('Enjoado (E)')

Por ai vai...

São diversos pontos... como sugestão, sugiro fazer programa mais simples e deixar funcionando, e ai aos poucos vai incrementando...

No aguardo.