Прошу о помощи! Дана матрица целых чисел размером 4x3 определите максимальный…

program picaso; uses crt; type vector=array[1… 100] of integer; var a: vector; i,n,max: integer; begin clrscr; writeln ('n: '); readln (n); for i: =1 to n do begin write ('значение ',i,': '); readln (a[i]); end; max: =a[1]; for i: =1 to n do if a[i] > max then max: =a[i]; writeln ('максимальный элемент массива',max); readln; end.