Требуется определить в каждой строке данной матрицы чётные элементы. Создать новую таблицу (CHET) в каждой из строк которой, будут найденные элементы соответствующих строк исходной матрицы. Вывести на экран исходную матрицу и таблицу CHET рядом.
Вот точное задание.
1)Матрица задаётся пользователем.
2)Квадратная матрица. 
нужно чтобы матрица и таблица были рядом и в таблице выводились чётные элементы на тех же местах что и в исходной матрице, а не чётные элементы были пропущены... Заранее благодорю!


Program Massiv6;
uses crt;
var A: array[1..100,1..100] of integer;
CHET: array[1..100,1..100] of integer;
N,i,j,Error:integer;
Ch:char;
label L1,L2;
L1: 
clrscr;
repeat

write('Введите порядок матрицы в интервале от 2 до 100=> ');

{$i-}
readln(N);
textattr:=red;
Error:=IOresult;
{$i+}

if (N<2) or (N>100) or (Error<>0) then
writeln('Неверно задан порядок матрицы!!! Повторите ввод!');
textcolor(cyan);
Until (N>=2) and (N<=100) and (error=0);
clrscr;
textcolor(red);
gotoxy(8,1);
writeln('В В Е Д И Т Е З Н А Ч Е Н И Е Э Л Е М Е Н Т А М А С С И В А!');


gotoxy(30,3);
writeln('В Н И М А Н И Е!!!');
writeln(' Значение элемента должно быть в интервале от -10000 до 10000!');
writeln;
textcolor(cyan);
for i:=1 to N do begin
for j:=1 to N do begin
repeat write(' A[',i,',',j,']: ');
{$i-}

readln(A[i,j]);
textcolor(red);
error:=IOresult;
{$i+}
if (A[i,j]>10000) or (A[i,j]<-10000) or (error<>0) then
writeln('Ошибка в значении элемента массива!!! Повторите ввод!');
textcolor(cyan);
until(A[i,j]<=10000) and (A[i,j]>=-10000) and (Error=0);
end;
end;
clrscr;
gotoxy(23,2);
textcolor(red);
writeln('Р Е З У Т Ь Т А Т Ы Р А Б О Т Ы:');
gotoxy(2,4);
writeln('Исходная матрица:');

for i:=1 to N do begin
for j:=1 to N do write(A[i,j]:5);
writeln;
end;
for i:=1 to N do begin
for j:=1 to N do begin
if (A[i,j] mod 2=0) then chet[i,j]:= A[i,j];
end;
end;
writeln;
textcolor(green);
writeln(' Полученная матрица:');

for i:=1 to n do begin

for j:=1 to n do
if chet[I,j]<>0 then

write(chet[i,j]:5,'');

writeln;

end;

writeln;

textcolor(red);

gotoxy(13,24);

writeln('Хотите ли вы отсортировать еще одну матрицу? (Y-да,N-нет)');
L2:
case readkey of
#89: goto L1;
#121: goto L1;
#78: exit;
#110: exit;
end; goto L2;
end.

У тебя, насколько я вижу, и с чтением проблема, не только с программированием? Правила Форума, пункт первый. Читай и принимай к сведению...