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

uses crt;
var
i,j,mm,m,n,nn:integer;
a:array[1..100,1..100] of integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then a[i,j]:=n-i+1;
write(a[i,j]:4)
else a[i,j]:=0;
end;
writeln;
end;
readln;
end.

2)
for i:=1 to n do
 for j:=1 to n do
  if i=j then a[i,j]:=n-i+1
    else a[i,j]:=0;

uses crt;
var a:array[1..50,1..50] of real;
     n,i,j,mini,minj:byte;
     sum:real;
begin
clrscr;
writeln('n ');
readln(n);
mini:=1;
minj:=1;
for i:=1 to n do
 for j:=1 to n do
   begin
     writeln('a[',i,',',j,']= ');
     readln(a[i,j]);
     if a[mini,minj]>a[i,j] then
       begin
         mini:=i;
         minj:=j;
       end;
   end;
 
sum:=0;
for i:=1 to n do
 sum:=sum+a[mini,i];
 
for i:=1 to n do
 begin
   write(a[i,j]:6:2);
   writeln;
 end;
writeln('Sum= ',sum:10:3);
readln;
end.

uses crt;
var
i,j,mm,m,n,nn:integer;
a:array[1..100,1..100] of integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then a[i,j]:=n-i+1;
write(a[i,j]:4)
else a[i,j]:=0;
end;
writeln;
end;
readln;
end.

uses crt;
var
i,j,mm,m,n,nn:integer;
a:array[1..100,1..100] of integer;
begin
writeln('vvedite n');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then
a[i,j]:=n-i+1
else a[i,j]:=0;
write(a[i,j]:2)
end;
writeln;
end;
readln;
end.

uses crt;
var
i,j,n,k,l:integer;
a:array[1..100] of integer;
b:array[1..100] of integer;
begin
writeln('vvedite n');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(10);
write(a[i]:4);
end;
writeln;
b[1]:=a[1];
l:=2;
for i:=2 to n do begin
k:=0;
for j:=1 to l-1 do begin
if  b[j]=a[i] then k:=k+1;
end;
if k=0 then begin b[l]:=a[i];
l:=l+1;
end;
end;
for j:=1 to l-1 do
write(b[j]:4);
readln;
end.