const n = 10;
Type MyMass = array[1..n] of integer;
var
Mass: MyMass;
maxI, lastNum: integer;

function MaxNumMass(): integer;  //Определение максимального значения в массиве
begin
  maxI:=1;
  for var i:=1 to n do //Перебор элементов
  begin
    if Mass[i] >= Mass[maxI] then
      maxI:=i; //Нужна только позициия (если захотим взять число, то по позиции найдём)
    if Mass[i] = 999 then
      break;
  end;
  writeln('Максимальное число в массиве: ',Mass[maxI],'(Позиция числа: ', maxI,')');
end;

function Equality(): integer;
begin
  for var i:=1 to n do //Перебор элементов
    if (Mass[i]mod 10) = ((Mass[i]div 10)mod 10) then //Берём последнее и предпоследнее число
    begin
      lastNum:=i;
      break;
    end;
  if lastNum=0 then
    writeln('Нет числа с одинаковыми последними элементами')
  else
    writeln('Первое число с одинаковыми последними элементами: ',Mass[lastNum],'(Позиция числа: ',lastNum,')');
end;

begin
  randomize;
  for var i:=1 to n do //Заполняем массив рандомными числами
    Mass[i]:=random(100, 999);

  MaxNumMass();
  Equality()
end.