Написать программу, которая выводит на экран те элементы заданного массива, которые расположены до минимального элемента всего массива — Pascal(Паскаль)

program mas;

uses crt;

var
  a: array [1 .. 99] of integer;
  n, i, min, NumMin: integer;

begin
  write('Введите размерность массива');
  read(n);
  for i := 1 to n do // Ввод массива
    read(a[i]);
  min := a[1]; // Принимаем за минимум первый элемент
  NumMin := 1;
  for i := 2 to n do
    if a[i] < min then
    begin
      min := a[i];
      NumMin := i;
    end;
  for i := 1 to NumMin do
    write(a[i]);

end.