uses crt;
const
len = 5;
var
i, j, k: integer;
top, left, right, bottom: integer;
top_diag, left_diag, right_diag, bottom_diag: integer;
a_array: array[1..len] of array[1..len] of integer;
b_array: array[1..len] of array[1..len] of integer;
begin
randomize;
for i:=1 to len do begin
    for j:=1 to len do begin
        a_array[i,j] := random(25);
    end;
end;
for i:=1 to len do begin
    for j:=1 to len do begin
        if (i = 1) then
            top:=a_array[len, j]
        else
            top:=a_array[i-1, j];
        if (j = 1) then
            left:=a_array[i, len]
        else
            left:=a_array[i, j-1];
        if (j = len) then
            right:=a_array[i, 1]
        else
            right:=a_array[i, j+1];
        if (i = len) then
            bottom:=a_array[1, j]
        else
            bottom:=a_array[i+1, j];
    end;
end;
end.