var
  arr: array of integer;
  elementsOfArray: integer;
  choiseFillArray: boolean;
begin
  Writeln('Введите размерность целочисленного массива: ');
  elementsOfArray := ReadInteger();
  SetLength(arr, elementsOfArray);
  Writeln('Как заполнять массив: вручную (false) или случайно (true)?');
  choiseFillArray := ReadBoolean();
  
  if true = choiseFillArray then
    arr := SeqRandomInteger(elementsOfArray).ToArray
  else
    arr := ReadArrInteger(elementsOfArray);
    
  for var i := 0 to arr.Length - 1 do
    if arr[i].ToString[1] > arr[i].ToString[arr[i].ToString.Length] then
      Writeln(arr[i]);
end.