процедуры, цикл нахождения четных элементов каждой строки массива и вычисление из суммы

[nikepol]

Program procedures;
uses crt;       {модуль для работы с программой в текстовом режиме}
const           {секция объявления констант}
 nmax=20;
 kmax=20;
type
 MyArray=array [1..nmax,1..kmax] of integer;
 ItArray=array [1..nmax] of integer;
Var             {секция объявления переменных}
    a:MyArray;   {двумерный массив; переменные целого типа}
    Sum:ItArray;         {одномерный массив; переменные целого типа}
    i,j,n,max,error,k,z,c,v,s:Integer;          {переменные целого типа}
    ch:char;                               {переменная - символ}
    x: Array [1..100] of integer;
    y: Array [1..100] of integer;
procedure EnterInfo;
Begin
   clrscr;                                   {начало программы}
   Textbackground (white);             {цвет фона}
   Textcolor(red);                       {цвет символов}
    clrscr;                                {очистка экрана}
   Gotoxy(20,6);                           {вывод текста в указанном месте экрана}
   Writeln ('Вашему вниманию представляется программа, ');  {вывод информации на экран}
   Gotoxy(20,7);
      Writeln ('которая суммирует четные элементы каждой строки');
   Gotoxy(20,8);
      Writeln ('данного двумерного массива.');
  Textcolor(red);
   Gotoxy(35,10);
      Writeln ('Внимание!');
   Gotoxy(20,12);
  Textcolor(black);
      Writeln('1)Количество строк и столбцов данного двумерного');
   Gotoxy(20,13);
      Writeln('массива должно быть в интервале от 2 до 20.');
   Gotoxy(20,14);
      Writeln('2)Элементы массива - целые числа в пределе,');
   Gotoxy(20,15);
     Writeln('от -1000 до 1000.');
   Gotoxy(40,17);
  Textcolor(black);
      Writeln('Программу составил студент ');
   Gotoxy(40,18);
      Writeln('---');
   Gotoxy(40,20);
      Writeln ('----.');
   Gotoxy(40,21);
      Writeln('Москва,2010');
   Gotoxy(20,23);
     textcolor(blue);
      Writeln('Нажмите любую клавишу для продолжения:');
    Ch:=readkey; {считывание символа с клавиатуры}
   end;

procedure  EnterSizeMatrix (var n,k,error:integer);
  begin
  repeat              {начало цикла с постусловием}
   textcolor(black);
  write ('Введите количество строк массива в интервале от 2 до 20:');
  {$i-}               {отключение проверки ошибок ввода данных}
  readln(n);          {ввод с клавиатуры значения переменной}
  Error:=IOResult;    {возвращение результата последней операции ввода/вывода}
  {$i+}               {включение проверки ошибок ввода данных}
  if (n<2) or (n>20) or (error<>0) then
			begin
			  Textcolor(red);
			  writeln('Неверно задано количество строк в массиве! Повторите ввод!');
			end;
  until(n>=2) and (n<=20) and (error=0);    {конец цикла с постусловием}
  writeln;
  {---------ввод количества столбцов двумерного массива с проверкой-------}
  repeat
   textcolor(white);
  write ('Введите количество столбцов массива в интервале от 2 до 20:');
  {$i-}
  readln(k);
  Error:=IOResult;
  {$i+}
  if (k<2) or (k>20) or (error<>0) then
			begin
			  Textcolor(red);
			  writeln('Неверно задано количество столбцов в массиве! Повторите ввод!');
			end;
until(k>=2) and (k<=20) and (error=0);
  end;
procedure EnterElementMatrix (var n,k,max: integer; var a:MyArray);
   var
      i,j: integer;
   begin
    writeln;
    gotoxy(20,5);
    Writeln('Введите значения элементов двумерного массива');
   Gotoxy(35,8);
  Textcolor(yellow);
    Writeln('Внимание!!!');
   Gotoxy(6,9);
   Textcolor(black);
    Writeln('1)Значение элементов массива должно быть в пределе от -1000 до 1000');
   Gotoxy(6,10);
    Writeln('2)Значения элементов строки массива проставляются через клавишу "пробел"!');
   Gotoxy(6,11);
    Writeln('3)Для ввода элементов следующей строки массива нажмите клавишу "Enter"!');
    Writeln;
    textcolor(white);
  Writeln('Введите элементы массива:');
  for i:=1 to n do begin
      repeat
      Write ('x[',i,']=');
      {$i-}
      Read (x[i]);
      Error=IOResult;
      {$i+}
     for j:=1 to k do
		  begin
		   a[i,j]:=0;
		   repeat
		   textcolor(white);
		   {$i-}
		   read(a[i,j]);
		   Error:=IOResult;
		   {$i+}
		   if (a[i,j]>1000) or (a[i,j]<-1000) or (error<>0) then
		      begin
		      textcolor(red);
		      writeln('Ошибка в значении элемента массива! Введите элемент в интервале');
		      writeln('от -1000 до 1000 вместо ошибочного и нажмите клавишу "Enter"!');
		      end;
		   until (a[i,j]<=1000) and (a[i,j]>=-1000) and (error=0);
		  end;
		  writeln;
    end;
    end;

{------цикл нахождения четных элементов каждой строки массива и вычисление из суммы-----}

Помогите реализовать пометку каждой строки то есть типа
A[1,1]=
A[1,2]=
и так далее.