Дан двумерный массив размером 6 на 5.Сформировать одномерный массив,каждый элемент которого равен первому четному элементу соответствующего столбца,если такого нет,то равен нулю — Pascal(Паскаль)

uses crt;
const n = 6; m = 5;
var a:array[1..n,1..m]of integer;
d : array[1..m] of integer;
i, j, k:integer;
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 
 for j := 1 to m do
 begin
    k := 0;
    for i := 1 to n do if a[i, j] mod 2 = 0 then
    begin
        k := i;
        break;
    end;
    if k = 0 then d[j] := 0 else d[j] := a[k, j];
 end;
 for i:=1 to m do write(d[i],' ');
 readln;
end.