Сгенерировать массив целых чисел из 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.