ЦИКЛЫ, ПОМОГИТЕ ПОЖАЛУЙСТА!!! Опции

[Маруха]

ЗАДАЧА: Найти минимальное значение среди последовательности вводимых чисел. Сам признак конца при определении минимуму не учитывать. Остановить обработку при вводе признака конца - предварительно введенного пользователем числа из диапазона -10...5 :thanks:

[FreeMan]

uses crt;
var
a,i,min:integer;
begin
write("enter the end value (-10..5): ");
repeat
readln(a);
until (a>5) and (a<-10);

write('Enter the number: ');
readln(min);
if min=a then begin
writeln('Wweden tolko priznak konca');
halt(1);
end;

repeat
write('Enter the number: ');
readln(i);
if i=a then break;
if i<min then min:=i;
until false;

writeln();
writeln('min=',min);
readkey;
end.

Делал без компилятора