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

Program massiv;
var i,j,i1,j1,min: integer;
mas : array[1..4,1..5] of integer;
begin

//заполнение автоматич. случайными числами
for i := 1 to 4 do
for j := 1 to 5 do
mas[i,j] := Random(100); //заполняем массив случ. числами от 0 до 100

//Чтобы заполнить массив с экрана, если по заданию надо так) :
for i := 1 to 4 do
for j := 1 to 5 do
begin
write ('Введите mas[',i,',',j,']: ');
readln(mas[i,j]);
end;

// выведем заполненный массив
for i := 1 to 4 do begin
for j := 1 to 5 do
write ('mas[',i,',',j,']: ',mas[i,j]);
writeln();
end;
min:=mas[1,1];
i1:=1;
j1:=1;
for i := 1 to 4 do
for j := 1 to 5 do
if mas[i,j]

Доброго времени суток.

Ну и в чем проблема-то? Букварь не пробовали читать?

MinI := 1; {индексы минимального элемента}
MinJ := 1;
for i:=1 to 4 do begin {цикл по строкам}
for j:=1 to 5 do begin {цикл по столбцам}
Write(A[i,j]: 4); {вывод элемента на экран (4 символа на элемент) }
if A[i,j] < a[Mini, MinJ] then begin {поиск минимального}
MinI := i;
MinJ := j;
end;
end;
WriteLn; {переход к отображению следующей строки}
end;
A[MinI, MinJ] := 1; {замена минимального значения на единицу}

Описание переменных заполнение матрицы и т. д. сами.

Удачи!