Изменить значения всех элементов матрицы по правилу

uses
  crt;
const
  max=100;
var
  a:array[1..max,1..max] of integer;
  c:array[1..max] of integer;
  n,i,j,k:byte;
begin
  clrscr;
  repeat
    write('Размер массива n=');
    readln(n);
  until n in [1..max];
  writeln('Исходный массив C:');
  for i:=1 to n do
    begin
      c[i]:=random(n);
      write(c[i]:4);
    end;
  writeln;
  writeln('Исходная матрица А:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(n);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  k:=0;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if c[j]=c[i] then
        k:=1;
  if k=1 then
    begin
      writeln('В массиве имеются одинаковые элементы');
      for i:=1 to n do
        begin
          c[i]:=c[i]+a[i,i];
          write(c[i]:4);
        end;
    end
  else
    writeln('В массиве одинаковых элементов нет!');
  readln;
end.

writeln('Исходный массив C:');
  for i:=1 to n do
    begin
      write('c[',i,']:4=');
      readln(c[i])
    end;
  writeln;

var f:text;
    a:array[1..max,1..max] of integer;
    n,i,j:byte;
begin
assign(f,'input.txt');//файл с матрицей в папке с программой
reset(f);//откроем его для чтения
read(f,n); //первое число в файле-размер матрицы
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]); //остальные ее элементы
close(f);//закроем файл
..............