Паскаль. Дана матрица размерностью M*M. Найти сумму координат минимального элемента

[Венера9]

Помогите, пожалуйста, решить задачку, экзамен! без вас не справлюсь!!!!

[profi]

Пиши в асю(в профиле). Договоримся.

[edmynt]

program Untitled;
uses crt;
const M=3;
var
mas:array [1..M,1..M] of integer;
i,j,s:byte;
min :integer;
begin
For i:=1 to M do
begin
writeln ('Enter string namber',i,' ');
for j:=1 to M do
begin
read (mas[i,j]);
end;
end;
min:=mas[1,1];
for i:=1 to M do
for j:=1 to M do
begin
if min>mas[i,j] then
min:=mas[i,j];
end;
s:=0;
for i:=1 to M do
for j:=1 to M do
begin
if min=mas[i,j] then
s:=s+i+j;
end;
writeln;
writeln('summa= ',s);
repeat until keypressed;
end.

[Венера9]

огромное спасибо!!!! Да пребудет с вами Господь, и будет вседа благополучие!!!