Pascal/Delphi Erro que não percebo

[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...

[smartfish]

Cara, você esqueceu de fechar as aspas em dois write's, e outra, ali no while tem de ser assim: while (r='S') or (r='s') do

Sempre que tu for se referir à algo escrito, ponha aspas...

 

Testei esse no meu e foi sem erro, dps da uma olhada.

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 Sim 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 Sim Não?');
                read(r);
        end
End.