Заменить все элементы, большие последнего, на единицы. заполнение массива произвести с клавиатуры

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('Количество элементов:'));
  a.Transform(t->t>a.Last?1:t); a.Println;
end.

Пример
Количество элементов: 8
Вводите: 23 -10 5 23 100 -28 4 13
1 -10 5 1 1 -28 4 13

Задание 1:
Узнаем какие числа у B2, C2, D2.
B2=C1-2=6-2=4
C2=(B1+D1)-2=(3+5)/2=4
D2=D1+3=5+3=8
Получились числа 4,4,8
Теперь смотрим на круг.
Там 2 одинаковых маленьких и 2 больших куска
Два одинаковых маленьких это по 4.
2 больших получается по 8
А2=А1+2
Мы знаем что А2=8. Из этого узнаем, чему равно А1:
8=А1+2
А1=6
ответ 6

Задача 2
Узнаем чему равны А2, В2, D2
А2=5-2+1=4
В2=5-1=4
D2=4*4=16
Получается 4,4,16
Смотрим на круг. Там два маленьких это 4,4
Один большой это 16
Остаётся половинка большого это будет 8
D1-A1=5-3=2 не подходит
В1+1=4+1=5 не подходит
D1+A1=5+3=8 подходит
С1*D1=2*5=10 не подходит
Подходит вариант 3

Var
{Файл 1.txt необходимо создать }
n,i,j,c1:integer;
a:array[1..100] of integer;
f:text;
begin
 {чтение данных с файла 1.txt}
 assign(f,'1.txt'); reset(f);
 i:=0;
 while not eof(f) do
 begin
   i:=i+1;
   read(f,a[i]);
 end;
 n:=i;
 close(f);
{Сортировка}
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]>a[j] then
        begin
         c1:=a[j];
         a[j]:=a[i];
         a[i]:=c1;
        end;
 {вывод в файл 2.txt отсортированного массива}
  assign(f,'2.txt');  rewrite(f);
  for i:=1 to n do
   write(f,a[i]:5);
  close(f);

 end.