Паскаль, матрицы, помогите пожалуйста!

x:=0;
for i:=1 to k do
for j:=1 to m do
if p[i,j] mod 2 = 0 then begin
x:=x+1; l[x]:=p[i,j] end;
а теперь ищи МАХ в этом векторе

Здравствуйте. Вот программа

const
k = 5;
m = 10;
var
P: array [1..k,1..m] of Integer;
T: array [1..k*m] of Integer;
i, j, max, x: Integer;
begin
RandomIze;
{1}
for i:= 1 to k do
for j:= 1 to m do
P[i,j]:= random(10);

{2}
writeln('P:');
for i:= 1 to k do begin
for j:= 1 to m do
write(P[i,j],' ');
writeln;
end;

{3}
x:= 0;
for i:= 1 to k do
for j:= 1 to m do
if P[i,j] mod 2 = 0 then begin
inc(x);
T[x]:= P[i,j];
end;
{4}
writeln('T:');
for i:= 1 to x do begin
write(T[i],' ');
end;
Writeln;

{5}
max:= 0;
for i:= 1 to x do
if T[i]>=max then
max:= T[i];
Writeln('Max: ', max);

readln;
end.

RandomIze; - это включение генератора случайных чисел. Чтобы каждый раз при запуске программы он генерировал разные числа.

{1} Сперва заполняю матрицу P числами от 0 до 9. С помощью генератора случайных чисел.
{2} Потом вывожу её на экран.
{3} Потом заполняю вектор T. P[i,j] mod 2 - это вычисление остатка от деления на 2. В переменной x - храню количество элементов вектора T.
{4} - тут вывожу вектор T на экран.
{5} - тут вычисляю максимальный элемент вектора T и вывожу его на экран.
readln; - это ожидание нажатия на клавишу Enter.

Успехов Вам!