Составить программу для нахождения минимального числа в последовательности чисел (только отрицательное число) Последовательность ограниченная нулем

var a,min:integer;begin;min:=32767;a:=1;while a<>0 dobegin;readln(a);if a=0 then break;if a>0 then exit;if min>a then min:=a;end;writeln(min);end.