Составить программку на языке pascal. используя цикл repeat...until. Определить малое число

var
  a, b, min : integer; // объявляем переменные целочисленного типа.
begin
  writeln (введите последовательность чисел, окончание ввода - отрицательное число:);
  readln(min);   // считываем 1-ое значение последовательности и считаем его минимумом.
    repeat // начало цикла.
      readln (a); // считываем значение, введенное с клавиатуры.
      if ((a lt; min) and (a gt;= 0)) then // сопоставляем значение с минимумом.
        min := a; // записываем число в min.
      until a lt; 0; // выходим из цикла, если введено отрицательное число.
  write (Малое число из введенной последовательности одинаково: , min); // вывод строчки.
end.