Помогите написать Программу на Языке Программирования Паскаль, который:
1) Имеет 10 случайных элементов от 0 до 99 и выводит на экран
2) Ищет Индекс, равный 25, если такового нет, то сообщает об этом.

Премного благодарен.

var  i:byte;  a:array[1..10] of byte;  Fortune:boolean;begin  Randomize;  Write('Элементы массива: ');  Fortune:=False;  for i:=1 to 10 do begin    a[i]:=Random(100);    Fortune:=Fortune or (a[i]=25);    Write(a[i],' ')  end;  Writeln;  if not Fortune then Writeln('Нет элемента со значением 25')end.Тестовые запуски:Элементы массива: 86 57 51 82 5 25 20 77 67 86 Элементы массива: 80 0 7 50 1 12 61 17 96 95 Нет элемента со значением 25