Помогите! Мы с другом поспорили, что я смогу составить программу на Паскале для поиска минимального и максимального...

uses crt;
const n=2;
var A : array [1..n, 1..n, 1..n] of integer;
min, max, k, i, j : integer;

begin clrscr;
min:=A[1,1,1];
max:=A[1,1,1];
for i:=1 to n do begin
for j:=1 to n do begin
for k:=1 to n do
readln(A[i,j,k]);
end; end;
for i:=1 to n do begin
for j:=1 to n do begin
for k:=1 to n do
begin
if min>A[i,j,k] then min:=A[i,j,k];
if max