Заданы массивы a[1..n] и b[1..m] найти максимальный элемент массива a и проверить,есть ли такой элемент среди элементов массива b.Если есть,указать его номер,иначе выдать "нет равных элементов"
паскаль плиз))))

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger(n=),1,50); a.Println;
  var b:=ArrRandom(ReadInteger(m=),1,50); b.Println;
  var p:=b.FindIndex(x-gt;x=a.Max)+1;
  if pgt;0 then Writeln(Искомый элемент равен ,p)
  else Writeln(Элемент не найден)
end.

Пример
n= 10
37 50 6 5 5 8 5 37 26 31
m= 15
25 31 28 44 16 30 29 3 40 24 50 12 12 32 5
Искомый элемент равен 11