Написать программу нахождения минимального элемента в одномерном масиве в[1..9] нужна ! язык турбо паскаль)

Uses crt;varB:array[1..9] of integer;i,min:integer;beginclrscr;randomize;for i:=1 to 9 dobeginB[i]:=random(100);write(b[i],' ');end;min:=b[1];for i:=1 to 9 doif b[i]<min then min:=b[i];writeln('min=',min);end.