Написать программу которая заменяет числа в массиве

program Project1;
 
const
  maxn = 100;
var
  i: integer; { Вспомогательные переменные для организации циклов}
  n: integer;   { Перемененная для хранения значения размерности матрицы}
  a: array[1..maxn] of real; { Переменная для хранения массива}
  t: real; { Перемененная для хранения значения числа Т}
  sum: real; {Переменная для хранения суммы значений элементов массива}
  ind: integer; {Переменная для хранения индекса искомого элемента}
begin
  repeat
    write('Введите значение количества элементов массива: ');
    readln(n);
    if (n < 3) and (n > maxn) then
      writeln('Значеник размера матрицы не может быть меньше 3 и больше ', maxn)
    else
      break;
  until false;
  write('Введите значение числа Т: ');
  readln(t);
  for i:= 1 to n do
    begin
      write('Введите значение ',i,' элемента: ');
      readln(a[i]);
    end;
  writeln('Исходная массив:  ');
  for i:= 1 to n do
    write(a[i]:5:1);          {Вывод элементов матрицы в консоль}
  writeln;
  writeln('Измененный массив:  ');
  sum:= 0;
  for i:= 1 to n do
    begin
      sum:= sum + a[i];        {Вычисление суммы значений элементов}
      write(abs(sum):5:1);     {Вывод модуля суммы элементов в консоль}
    end;
  ind:= 0;
  for i:= 1 to n do
    if a[i] = t then
      begin
        ind:= i;
        break;
      end;
  writeln;
  write('Ответ: ');
  if ind = 0 then
    writeln('-10')
  else
    begin
      sum:= 0;
      for i:= ind+1 to n do
        sum:= sum + a[i];        {Вычисление суммы значений элементов}
      write(sum:5:1);            {Вывод суммы элементов в консоль}
    end;
  writeln;
  readln;
end.