Сгенерировать массив целых чисел из 15 элементов. Числа лежат на интервале от 0 до 100. Есть ли в этом получившемя массиве числе 25. Найти максимальное из генерированных чисел. (на паскале)

Uses crt; var a:array[1 ... 100] of integer; i, max:integer; beginfor i:=1 to 100 dobegina[i]:=random (100) ; write (a[i],' ') ; end; max:=a[1]; for i:=1 to 100 doif a[i]=25 then writeln ('Да, число 25 есть в этом массиве.') ; if a[i]>max then max:=a[i]; writeln ('Максимальное число массива = ', max) ; readkey; end.