Bernardo _Vasconcelos

Olá. Estou a fazer um programa em Pascal: "Escreva um programa para ler 2 notas de um aluno, calcular e imprimir a média final. Logo após escrever a mensagem "Calcular a média de outro aluno [S ]im [N ]ão?" e solicitar um resposta. Se a resposta for "S", o programa deve ser executado novamente, caso contrário deve ser encerrado imprimindo a quantidade de alunos aprovados.". eu tenho o seguinte: Program aprovacaoalunos ; var n, m: real; r: char; Begin writeln('Qual a primeira nota do(a) aluno(a)'); read(n); m:=n; writeln('Qual a segunda nota do(a) aluno(a)'); read(n); m:=(m+n)/2; writeln('Calcular a média de outro aluno im [N]ão?); readln(r); while (r=S or r=s) do begin writeln('Qual a primeira nota do(a) aluno(a)'); read(n); m:=n; writeln('Qual a segunda nota do(a) aluno(a)'); read(n); m:=(m+n)/2; writeln('Calcular a média de outro aluno im [N]ão?); read(r); end End. Eles diz: =>Erro sintático na linha 16... =>'QUAL' não esperado! Não percebo porquê... Se me pudessem ajudar...