Заменить все элементы массива, стоящие после минимального, нулями — Pascal(Паскаль)

uses crt;

var
  i, size, min, num: integer;
  a: array [1 .. 10000] of integer;

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(a[i]);
  end;
  min := a[1];
  FOR i := 2 TO size do
  begin
    IF a[i] < min THEN
    begin
      num := i + 1;
      min := a[i];
    end;
  end;
  FOR i := num TO size do
  begin
    a[i] := 0;
  end;
  writeln('Сформированный массив:');
  FOR i := 1 TO size do
  begin
    writeln(a[i]);
  end;

end.