Найти малый элемент массива целых чисел,с подмогою генератора случайных чисел. Решение

Только не ввиде формы,а обычная программка ,без каких или кнопок

Массив задаётся с поддержкою генератора случайных чисел. после того как он задан, поочередно перебираются все элементы и определяется меньший элемент.
procedure minZNmas;
 var
  mas: array[1..15] of integer;
  k: integer;
  min: integer;  s: string;
begin

  randomize; 
//Наполнение массива случайными величинами 
  s:=''; 
  for k:=1 to 15 do begin   
     mas[k]:=random(800);   
     s:=s+IntToStr(mas[k])+','; 
  end;

  //Поиск малого значения 
     min:=mas[k]; 
     for k:=1 to 15 do   
        if mas[k]lt;min then
           min:=mas[k];

      Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);

Application.MessageBox(PChar(IntToStr(min)),'Малое значение', MB_ICONINFORMATION);

end;

begin   minZNmasend.