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

uses crt;
const n=3;
var
c:array [1..n,1..n] of integer;
min,i,j,s,e:integer;
Begin
clrscr;
min:=10000;
s:=0;
for i:=1 to n do
 for j:=1 to n do
  begin
  write('C[',i,',',j,']: ');
  readln(c[i,j]);
  end;
clrscr;
for i:=1 to n do begin
 for j:=1 to n do
  write(c[i,j]:7);
  writeln;
  end;
for i:=1 to n do
 for j:=1 to n do
 if c[i,j]<min then
  begin
 min:=c[i,j];
 s:=i;
 end;
for j:=1 to n do
 e:=e+c[s,j];
writeln('Min:',min) ;
writeln('Summa:',e);
readkey;
end.

uses crt;
const n=4; m=3;
var
c:array [1..n,1..m] of integer;
p:array [1..m] of longint;
i,j:integer;
Begin
clrscr;
for j:=1 to m do
 p[j]:=1;
for i:=1 to n do
 for j:=1 to m do
 begin
 write('C[',i,',',i,']: ');
 readln(c[i,j]);
 end;
clrscr;
for i:=1 to n do begin
 for j:=1 to m do
 write(c[i,j]:7);
 writeln;
 end;
for j:=1 to m do
 for i:=1 to n do
 p[j]:=p[j]*c[i,j];
writeln('Proizvedenia elementov stolbstov:');
for j:=1 to m do
 write(p[j],', ');
readkey;
end.

type
kompanii=record
nasvanie:string[60];
pridil:longint;
end;
Var a:array[1..100] of kompanii; s:string;
i,n:byte; max:integer;
begin
max:=a[1].pridil;
Writeln('vvedite kol-vo kompanii');
readln(n);
for i:=1 to n do
begin
Writeln('Nazvanie kompanii');
readln(a[i].nasvanie);
Writeln('Pribil ',a[i].nasvanie);
readln(a[i].pridil);
If (a[i].pridil>max) and (a[i].pridil>=1000)
then begin s:=a[i].nasvanie;
max:=a[i].pridil;
end;
end;
IF max<1000
then Writeln('Takoi kompanii net')
else
Writeln('Krupneishei kompaniei yavlaetsya ',s,' eyo pribil ', max);
readln;
end.