LP - Procedure com variáveis - Pascal

Estrutura de Dados

Dentro das Procedures podemos colocar vários tipos de códigos, todos os programas feitos até agora podem ser feitos dentro de uma procedure.
Exemplo:


Program avaliacao;
var condicao:String;

Procedure avaliacao;
var nota:integer;
Begin
write('digite sua nota..: ');
read (nota);
if (nota>=7) then
writeln('aprovado')
else
writeln('reprovado');
End;

Begin
repeat
Begin
avaliacao;
write ('Deseja sair do programa ? (sim/não)..: ');
read (condicao);
end;
Until (condicao = 'sim');
End.


Boa Prática...