Найти сумму элементов строки в которой расположен элемент с максимальным значением

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,n,max,tempi,sum:integer;
 begin
  ClrScr;
  Randomize;
  Writeln('Введите кол-во элементов');
   repeat
    Write('n=');
    Readln(n);
   until n>1;
 Writeln('Массив');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(20)+4;
      Write(a[i,j]:4);
     end;
    Writeln;
   end;
  Writeln;
  max:=1;
   for i:=1 to n do
    for j:=1 to n do
     if a[i,j]>max then
      begin
       max:=a[i,j];
       tempi:=i;
      end;
  sum:=0;
   for i:=i to n do
    for j:=1 to n do
    sum:=sum+a[tempi,j];
  Writeln('Максимум ',max,' Строка ',tempi);
  Writeln('Сумма ',sum);
  Readln;
 end.

const
  n=10;
 var a:array[1..n,1..n] of integer;
    i,j,max,tempi,sum:integer;
 begin
    Randomize;
  Writeln('Ishodnii massiv');
   for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(10)+4;
      Write(a[i,j]:4);
     end;
    Writeln;
   end;
  Writeln;
  max:=a[i,j];
   for i:=1 to n do
   for j:=1 to n do
     if a[i,j]>max then
      begin
       max:=a[i,j];
       tempi:=i;
      end;
   writeln('Max element ravnii ',max,' nahoditsea v ',tempi,' stroke');
  sum:=0;
    for j:=1 to n do
    sum:=sum+a[tempi,j];
    Writeln('Summa ',tempi,' stroki ravna ',sum);
  Readln;
 end.