заданы массивы 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->x=a.Max)+1;  if p>0 then Writeln('Искомый элемент равен ',p)  else Writeln('Элемент не найден')end.Примерn= 1037 50 6 5 5 8 5 37 26 31m= 1525 31 28 44 16 30 29 3 40 24 50 12 12 32 5Искомый элемент равен 11