Напишите пожалуйста программы на языке Паскаль!!! Очень нужно! Первая программа: ввод и вывод рандомного числа))) вторая программа: надо вывести самое наименьшее число(на основе первой)) пожалуйста!

Первая var i,min:integer; mas: array [1..10] of integer; begin randomize; for i:=1 to 10 do begin mas[i]:=random(1,100); write(mas[i], ' '); end; end. Вторая var i,min:integer; mas: array [1..10] of integer; begin randomize; for i:=1 to 10 do begin mas[i]:=random(1,100); write(mas[i], ' '); end; writeln(''); min:=mas[1]; for i:=1 to 10 do begin if min>mas[i] then min:=mas[i]; end;writeln('min = ', min); end.