Pascal/Turbo Pascal - Ayuda con 2 ejercicios

uSES crt;

VAR

  N : ARRAY [1..3] OF CHAR;

  I,J : INTEGER;

  AUX : CHAR;

  Angulos: array[1..3] of integer;

BEGIN

  CLRSCR;

  for i :=1 to 3 do

    begin

       writeln('Introduzca un CARACTER: ');

       readln(n[i]);

    end;

  for i :=1 to 3 do

    for j:=1 to 2 do

        if n[i]<n[j] then

          begin

           Aux:=n[i];

           n[i]:=n[j];

           n[j]:=aux

          end;

    clrscr;

for i :=1 to 3 do

  writeln(n[i]);

  {EJERCICIO 2}

      FOR I:=1 to 3 DO

        BEGIN

           wRITeLN('Introduzca un  ngulo: ');

           readln(Angulos[i]);

        END;

  if (angulos[1]<>90) and (angulos[2]<>90) and (angulos[3]<>90) then

    writeln('No es un tri ngulo rect ngulo')

  else

    if (angulos[1]=90) or (angulos[2]=90) or (angulos[3] = 90) then

      writeln('S¡ es un tri ngulo rect ngulo');

  readln;

END.

miVariable := 'ZGA';

miOrd1 := Ord(miVariable[1]); //-- Saco el codigo ascci de la primera letra

miArregloDinamico[miOrd1] := miVariable[1];

//-- Luego hago lo mismo con cada letra - puede ser con otras varibles o con un for, etc.

//-- Luego muestro el contenido del arreglo con un for, solo mostrando los elementos con datos