В матрице найти сумму элементов столбца, в котором расположен наибольший элемент - Turbo Pascal

program pr;
 
var
  a: array [1..10, 1..10] of real;
  n,i,j,index: integer;
  max, sum: real;
 
begin
  writeln('Введите порядок матрицы <= 10');
  readln(n);
  if (n <= 10) then
  begin
    for i := 1 to n do
      for j := 1 to n do
        a[i, j] := random(21);       // диапазон заполнения ставь любой
    writeln('Исходная матрица');
    for i := 1 to n do
    begin
      for j := 1 to n do
        write(a[i, j]:3);
      writeln;
    end;
    max := a[1, 1];
    for i := 1 to n do
      for j := 1 to n do
        if a[i, j] > max then
        begin
          max := a[i, j];
          index := j;
        end;
    writeln;
    writeln('Наибольший элемент: ', max);
    writeln('Столбец,содержащий наибольший элемент: ', index);
    sum := 0;
    for i := 1 to n do
    begin
      sum := sum + a[i, index];
    end;
    writeln('Сумма элементов столбца,который содержит наибольший элемент: ', sum);
  end
  else
    writeln('Недопустимый ввод.Порядок должен быть меньше или равен 10');
end.