Написать программу которая в последовательности целых чисел определять значение наименьшего числа из всех чисел.Программа

Var i,j,min: integer; a: array [1..1000] of integer;begin//запрос необходимых характеристикWriteln(\'Введите числа (0 - признак окончания ввода)\'); a[1]:=1; i:=1;while (a[i]<>0) do begin i:=i+1; readln(a[i]); while (a[i]>30000) do begin Write(\'Введите числo меньше 30000. \'); readln(a[i]); end; end;i:=i-1;//нахождение минимального числаmin:=30001;for j:=2 to i do if a[j]<min then min:=a[j];writeln (\'Минимальное введённое число - \', min);end.