Очень нужно!!! помогите сделать программу нахождения минимального значения из чисел введенных с клавиатуры.признак конца ввода 0(паскаль)

var min,n:longint;Beginreadln(n);min:=n;while(n<>0) doBeginif n<min then min:=n;readln(N);end;writeln(min);end.