Вычислить сумму

var
y:array[1..5,1..7] of integer;
s:real;
min,pol,ki,kj,mi,mj,i,j:integer;
begin
min:=y[1,1];
pol:=0;
for i:=1 to 5 do
for j:=1 to 7 do
begin
writeln('Vvedite y[',i,',',j,']:');
readln(y[i,j]);
if a[i,j]<min then begin
min:=a[i,j];ki:=i;kj:=j;
end;
end;
i:=1;
j:=1;
repeat 
if a[i,j]>0 then begin
pol:=a[i,j];
mi:=i;mj:=j
end;
i:=i+1;
j:=j+1;
until a[i,j]<0;
S:=ki+kj/mi+mj;
writeln('s=',s:6:2);
readln;
end.

repeat
repeat 
if a[i,j]>0 then begin
pol:=a[i,j];
mi:=i;mj:=j
end;
i:=i+1;
 
until (a[i,j]<0) or (i<=5);
j:=j+1;
until (a[i,j]<0) or (j<=7);

const
  m=5; n=7; LIM=50; W=4;
var
  a: array [1..m,1..n] of Integer;
  i, j, ki, kj, mi, mj: Integer;
begin
  Randomize;
  WriteLn('A='); {mi:=0;}
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=-LIM div 2+Random(LIM); Write(a[i,j]:W);
      if a[i,j]>0 then begin
        if mi=0 then begin
          mi:=i; mj:=j; ki:=i; kj:=j;
        end;
        if a[i,j]<a[ki,kj] then begin
          ki:=i; kj:=j;
        end;
      end;
    end; WriteLn;
  end;
  WriteLn('S= ',ki,'+',kj,'/',mi,'+',mj);
  if mi=0 then WriteLn('Нет положительных элементов')
  else WriteLn('S=',ki+kj/mi+mj);
end.