помогите срочно!!! найдите минимальное из n чисел на паскале

var  i, min, a, n: integer;begin  min := trunc(power(2, 31) - 1);  readln(n);  for i := 1 to n do  begin    readln(a);    if (a < min) then      min := a;  end;  writeln(min);end.