Построить новую матрицу такого же размера по правилу

{Дана прямоугольная целоичесленная матрица размером m x n. 
Построить новую матрицу такого же размера,гд каждый элемент 
равен минимальному срерди соседей соответсующего элемента 
сходной матрицы} 
program P1; 
const 
 m = 4; 
 n = 5; 
type 
 Matrix = array [1..m, 1..n] of integer; 
var 
 a, b : Matrix; 
 i, j, i1, j1 : integer; 
 min : integer; 
begin 
 {Заполнение матрицы а случайными} 
 randomize; 
 for i := 1 to m do 
 for j := 1 to n do 
 a[i,j] := random(20); 
 {Вывод матрицы а на экран} 
 writeln('Матрица а:'); 
 for i := 1 to m do 
 begin 
 for j := 1 to n do 
 write(a[i,j]:4); 
 writeln; 
 end; 
 {Построение матрицы b - минимумы среди соседей} 
 for i := 1 to m do 
 for j := 1 to n do 
 begin 
 {Поиск минимального значения среди соседей 
 элемента а[i,j]} 
 min := MaxInt; //-Максимальное возможное среди значений типа integer 
 for i1 := i-1 to i+1 do 
 for j1 := j-1 to j+1 do 
 if ((1 <= i1) and (i1 <= m)) or //проверка,чтобы новый масив 
 ((1 <= j1) and (j1 <= n)) and // не выходил за пределы изначального 
 (i <> i1) and (j <> j1) then // массива 
 if a[i1,j1] < min then 
 min := a[i1,j1]; 
 b[i,j] := min; 
 end; 
 {Вывод матрицы b на экран} 
 writeln('Матрица b:'); 
 for i := 1 to m do 
 begin 
 for j := 1 to n do 
 write(b[i,j]:4); 
 writeln; 
 end; 
end.

const
 m = 4;
 n = 5;
type
 Matrix = array [0..m+1, 0..n+1] of integer;
var
 a, b : Matrix;
 i, j, i1, j1 : integer;
 min : integer;
begin
 randomize;
 //создадим периметр из маесимальных чисел
 for i:=0 to n+1 do
  begin
   a[0,i]:=maxint;
   a[m+1,i]:=maxint;
  end;
for i:=0 to m+1 do
  begin
   a[i,0]:=maxint;
   a[i,n+1]:=maxint;
  end;
 //заполним середину
 writeln('Матрица а:');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     a[i,j] := random(20);
     write(a[i,j]:4);
    end;
   writeln;
 end;
 {Построение матрицы b - минимумы среди соседей}
 for i:=1 to m do
 for j:=1 to n do
  begin
   min:=a[i-1,j-1];
   for i1:=i-1 to i+1 do
   for j1:=j-1 to j+1 do
   if ((i1<>i) or (j1<>j))and(a[i1,j1]<min) then  min:=a[i1,j1];
   b[i,j]:=min;
  end;
 {Вывод матрицы b на экран}
 writeln('Матрица b:');
 for i:=1 to m do
  begin
   for j:=1 to n do
   write(b[i,j]:4);
   writeln;
  end;
end.