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

Перваяvari,min:integer;mas: array [1..10] of integer;beginrandomize;for i:=1 to 10 do beginmas[i]:=random(1,100);write(mas[i], ' ');end;end.Втораяvari,min:integer;mas: array [1..10] of integer;beginrandomize;for i:=1 to 10 do beginmas[i]:=random(1,100);write(mas[i], ' ');end;writeln('');min:=mas[1];for i:=1 to 10 dobeginif min>mas[i] thenmin:=mas[i];end;writeln('min = ', min);end.