Программу,которая выводит на экран в строчку 8 случайных чисел из промежутка от 15 до 100 и находит максимальное из них.(с uses crt, и попроще

uses crt;  

var i,m,a:integer;  

begin  

clrscr;  

m:=15;  

for i:= 1 to 8 do  

begin  

a:=Random(86)+15;  

if a>m then m:=a;  

write (a,' ')  

end;  

writeln;  

writeln('Максимальное число: ',m);

readln

end.