Pascal/Turbo Pascal - Ayuda , esta bien esto??gracias

{Copio lo tullo compáralo y mira las causas}

 If nota >= 5 then  {Pascal lo toma asi sino error}

   nota :=  'aprobado'   {Entiendo que nota es un string}

  {si nota es variable numérica no puede ser string }

 If nota  >= 5 then

   {no puede ser cadena si es numérica}

  Nota := aprobado

else

   Nota := suspenso;

    case nota of

   6 : aprobado;

   5 : aprobado justo:

         Else  { Incorrecto }

   4: esfuerzate mas;

   end;  {Los cases terminan con end y punto y coma}

 {El else se pondría al final del case o sea así}

  var

       nota : integer;

        estado : string[20];

  case nota of       {todo esto del case si son llamadas a procedimientos si no esos datos

                                tendrían una variable  estado := aprobado  o otra cosa}

   6 : estado := aprobado;

   5 :  aestado := probado justo:

   4:  estado := mas;

   end

else

       estado := sin nota;

{Mira esto te ayudara }

  program seleccion;

  uses

     crt;

  var

    estado : string[25];

    nota  : integer;

  begin

     clrscr;

     write('Entre nota del 0 al 8 : ');

     readln(nota);

     if nota >= 7 then

     writeln('Aprobado');

     if nota >= 7 then

     writeln('Aprobado')

   else

    writeln('Suspendido');

  if nota in[1..7] then

  begin

   case nota of

    7 : estado := 'Aprobado';

 4..6 : estado := 'Semi Aprobado';

 1..3 : estado := 'Suspendido';

    end;

  end

  else

      estado := 'Estudios nada';

      writeln(estado);

      readln;

  end.