Дана последовательность размерности n, состоящая из целых чисел. Найти минимальный элемент последовательности, используя тип переменной — указатель в качестве элемента последовательности и в качестве минимального элемента последовательности — Pascal(Паскаль)

uses crt;
const nmax=100;
type u=^integer;
var a:array[1..nmax] of u;
    n,i:byte;
    mn:u;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  new(a[i]);
  a[i]^:=random(50);
  write(a[i]^:4);
 end;
writeln;
writeln;
new(mn);
mn^:=a[1]^;
for i:=n downto 1 do
if a[i]^<mn^ then
mn^:=a[i]^;
write('Минимум=',mn^);
for i:=1 to n do
dispose(a[i]);
dispose(mn);
readln
end.