while não funciona [RESOLVIDO]

Olá a todos. estou precisando de ajuda em um código em pascal. Uso o linux mint com o geany e o compilador fpc.
O problema é o seguinte. Eu fiz um código simples para o cálculo da média em que o programa pede uma nota e pergunta se vou inserir mais alguma nota se sim, então o programa pede outra nota e assim por diante. Só que quando digito a primeira nota e aperto ENTER, o while finaliza. Alguma idéia do que seja? segue o código:

Program media_de_notas;
uses crt;

var j: integer;
nota, nota1, media:real;
finalizar, nota2, nota3:string;
Begin
finalizar:='i';
j:=0;
nota:=0;
nota3:='';
while(finalizar='i')or(finalizar='I') do
begin
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
write(' nota: ');
read(nota1);
writeln;
write(' Confirme a nota: ');
read(nota2);
writeln;
j:=j+1;
nota:=nota+nota1;
nota3:= nota3 + nota2 + ', ';
writeln(' (i) Inserir nota');
writeln(' (f) Finalizar e exibir Média');
write(' Opção: ');
read(finalizar); clrscr;
end;
media:=nota/j;
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
writeln(' Foram digitadas ',j,' notas: ',nota3);
writeln;
writeln(' Média = ',media:2:2);
writeln;
write(' Tecle para sair ');
readkey;
End.

O While funciona perfeitamente.Você que está errando no codigo.
Note que você atribuiu 'i' para a variável finalizar logo depois de begin do inicio do programa.Dessa forma o while é satisfeito no primeiro ciclo,indo direto para o termino do programa.

ta deixa eu ver se entendi sua explicação:
vc diz essa parte...
finalizar:='i';
j:=0;
nota:=0;
nota3:='';
while(finalizar='i')or(finalizar='I') do
begin ...
mas com [finalizar:='i'] e fazendo um [while(finalizar='i')] ele não deveria repetir até eu digitar um comando diferente em
writeln(' (i) Inserir nota');
writeln(' (f) Finalizar e exibir Média');
write(' Opção: ');
read(finalizar);

Realmente foi um equivoco meu.
Se você atribuiu 'i' ao finalizar o laço deve realmente rodar enquanto finalizar é "i".
Vou copiar seu codigo e debugar aqui

mudei o código, agora fiz o finalizar como real
finalizar:=0;
j:=0;
nota:=0;
nota3:='';
while(finalizar=0) do
begin...

e no final

writeln(' [0] Inserir nota');
writeln(' [1] Finalizar e exibir Média');
write(' Opção: ');
read(finalizar);

agora o while funciona mas o programa pula a parte
write(' Confirme a nota: ');
read(nota2);
acho que o problema é com string pois a (nota2) é string
veja como ficou

Program media_de_notas;
uses crt;

var j: integer;
finalizar, nota, nota1, media:real;
nota2, nota3:string;
Begin
finalizar:=0;
j:=0;
nota:=0;
nota3:='';
while(finalizar=0) do
begin
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
write(' nota: ');
read(nota1);
writeln;
write(' Confirme a nota: ');
read(nota2);
writeln;
j:=j+1;
nota:=nota+nota1;
nota3:= nota3 + nota2 + ', ';
writeln(' [0] Inserir nota');
writeln(' [1] Finalizar e exibir Média');
write(' Opção: ');
read(finalizar);
clrscr;
end;
media:=nota/j;
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
writeln(' Foram digitadas ',j,' notas: ',nota3);
writeln;
writeln(' Média = ',media:2:2);
writeln;
write(' Tecle para sair ');
readkey;
End.

Achei o erro:
Quando pede entrada de variavel para "finalizar" então o while deixa de ser "I" saindo do laço.

writeln(' Opção: ');

readln(finalizar);  

Crie mais uma variavel para opção e substitua:

writeln(' Opção: ');

readln(opcao);  

problema persiste. acho que deve ser um problema com meu compilador
da uma olhada neste código teste
program teste;

var nome:string;
repetir:integer;
Begin
repetir:=0;

while(repetir=0)do
begin
write('Digite seu nome: ');
read(nome);

write('Seu nome é: ',nome);
writeln;
writeln('digitar outro nome: 0');
writeln('finalizar: 1');
write('opção: ');
read(repetir);
end;
End.
ele pede um nome e quando solicita para digitar outro nome ele passa direto pelo [digite seu nome] e para nas opções de digitar outro nome ou finalizar.

Tente usar o readln. O read parece estar mantendo o buffer do teclado.

Realmente é preciso usar readln(). Funcionou!!!
Gostaria de agradecer a ajuda de todos.
realmente guipsp tem que usar assim mesmo.
paulo1205, Muito obrigado pela explicação, não tinha me tocado da questão do buffer. Esse problema do buffer também acontece em C, mas não sabia que ocorria com PASCAL. MUITO OBRIGADO A TODOS GENTE!!!