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

Program fdf;
uses crt;
var a,i:real;
begin
readln(a);
I:=a;
while a<>-9999
do begin
readln(a);
if i<a then i:=a;
end;
writeln(i);
end.


(Для справки -9999 число для окончания цикла)

пожалуйста