помогите пожалуйста. Дана матрица 5 на 5. Найти наименьшее из значений элементов побочной диагонали и двух соседних с ней линий. (Pascal ABC)

спасибо большое

var a:array[1..5,1..5] of integer; i,j,m,n,min:integer;begin randomize; for i:=1 to 5 do begin   for j:=1 to 5 do    a[i,j]:=random(20);   end; writeln('исходная мтарица');   for i:=1 to 5 do begin  for j:=1 to 5 do    write(a[i,j],' ');   writeln;   end;   min:= a[5,5];  for i := 1 to 5 do   for j := 1 to 5 do    if i+j = n+1 then       begin        if a[i,j] < min then min:= a[i,j]       else        if j = 5 then if a[i, j - 1] < min then min:= a[i, j-1]      else        if i = 5 then if a[i - 1, j] < min then min:= a[i - 1, j]      else        if a[i, j - 1] < min then min:= a[i, j-1]      else         if a[i - 1, j] < min then min:= a[i - 1, j];      end;      write(min);end.