Помогите решить задачку по матрице Опции

[Fayst]

Дана исходная матрица А (6,6). Определить в каждой строке чётные элементы. Создать новую таблицу (CHET) из 6 строк, в каждой из которых будут найденные чётные элементы соответствующих строк матрицы А. Вывести исходную матрицу А и таблицу CHET рядом!!!

Помогите пожайлуста!!! Буду очень признателен!!!

[Feagor]

я немного непонял что за снет, могу предложить вот это, правда сырой вариант...

uses crt;
type matrix=array[1..6,1..6] of integer;
var a,b:matrix;
    i,j:integer;
begin
clrscr;
randomize;
{zapolnkaem matricu sluchainimi chislami}
for i:=1 to 6 do
for j:=1 to 6 do a[i,j]:=random(100);
{smotrim chisla i esli chislo chetnoe
zapisivaem ego v druguiu matricu}
for i:=1 to 6 do
for j:=1 to 6 do if not odd(a[i,j]) then b[i,j]:=a[i,j];
{vivodim matrici a i b}
for i:=1 to 6 do
begin
writeln;
for j:=1 to 6 do write(a[i,j],' ');
end;
writeln;
writeln;
for i:=1 to 6 do
begin
writeln;
for j:=1 to 6 do write(b[i,j],' ');
end;
end.