Заменить нулями в матрице элементы с четной суммой индексов

uses crt;
 
const n=5;h=10;
 
type mas=array[1..h] of integer;
     matrix=array[1..n,1..n] of integer;
 
 
var i,j,g:integer;
    A:mas;
    ma:matrix;
 
Begin
clrscr;
 {ввод}
 
writeln('Массив А: ');
 for i:=1 to h do
  begin
   A[i]:=A[i]+random(50);
   write(A[i]:3);
  end;
 
  writeln;
  writeln;
 
writeln('Матрица ',n,'x',n,' :');
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      ma[i,j]:=ma[i,j]+random(15);
      write(ma[i,j]:3);
     end;
    writeln;
   end;
{сравнение и замена}
 
  for i:=1 to n do
   begin
   for j:=1 to n do
     begin
      for g:=1 to h do
       if ((i+j) mod 2 = 0) and (A[g]=ma[i,j])  then
        ma[i,j]:=0;
     end;
   end;
 
{вывод}
writeln('Изменённая матрица: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(ma[i,j]:3);
      writeln;
  end;
 
readkey;
end.

program Project1;
 
const
  (*Множество глухих согласных букв.*)
  D = ['K', 'P', 'S', 'T', 'F', 'H'];
  (*Длина массива.*)
  M = 20;
var
  S : String;
  Arr : array[1..M] of String;
  i, i1, i2, Len, Len1, Len2, Cnt : Integer;
  Ch : Char;
  DRes : set of Char;
begin
  repeat
    Writeln('Задайте перечень слов. Количество слов не больше ', M);
    Writeln('Прекратить ввод - пустая строка + Enter.');
    Cnt := 0;
    repeat
      Write('Слово №', Cnt + 1, ': ');
      (*Читаем слово, введённое с клавиатуры.*)
      Readln(S);
      (*Если введена пустая строка - выходим из цикла.*)
      if S = '' then Break;
      (*Индекс слова. Под этим индексом мы запишем слово в массив.*)
      Inc(Cnt);
     (*Переводим все буквы слова в верхний регистр и записываем слово в массив.*)
      Arr[Cnt] := UpperCase(S);
    until Cnt = M;
 
    if Cnt < 2 then begin
      Writeln('Задано меньше двух слов. В этом случае задача не имеет смысла.');
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
      Continue;
    end;
 
    (*Решение.*)
    (*Будем делать так:
    индекс i1 пускай ссылается на первое самое короткое слово;
    индекс i2 пускай ссылается на второе самое короткое слово - это слово
    может быть либо длиннее, либо таким же по длине, как первое самое короткое слово.
    Берём первые два слова из массива. Первоначально предполагаем,
    что второе слово не короче первого.*)
    i1 := 1;
    Len1 := Length(Arr[1]);
    i2 := 2;
    Len2 := Length(Arr[2]);
    (*Если оказалось, что второе слово короче первого, то переставляем
    индексы и сведения о длине.*)
    if Len2 < Len1 then begin
      i1 := 2;
      i2 := 1;
      Len := Len1;
      Len1 := Len2;
      Len2 := Len;
    end;
    (*Обрабатываем все остальные слова в массиве.*)
    for i := 3 to Cnt do begin
      (*Длина очередного слова.*)
      Len := Length(Arr[i]);
      (*Если очередное слово короче первого самого короткого, то назначем его
      самого первым самым коротким, а то слово, которое было раньше первым самым
      коротким, назначаем вторым самым коротким словом.
      Осталось только запутаться в словах. :-) *)
      if Len < Len1 then begin
        i2 := i1;
        Len2 := Len1;
        i1 := i;
        Len1 := Len;
      (*Если очередное слово не короче первого самого короткого слова, но
      короче второго самого короткого слова, то делаем его вторым самым
      коротким словом.*)
      end else if Len < Len2 then begin
        i2 := i;
        Len2 := Len;
      end;
    end;
 
    Writeln('Номер первого самого короткого слова: ', i1);
    Writeln('Номер второго самого короткого слова: ', i2);
 
    (*Получаем строку из двух самых коротких слов.*)
    S := Arr[i1] + Arr[i2];
    (*Составляем множество глухих согласных, присутствующих в двух
    самых коротких словах.*)
    DRes := [];
    for i := 1 to Length(S) do
      if S[i] in D then DRes := DRes + [ S[i] ]
    ;
 
    (*Ответ.*)
    if DRes = [] then
      Writeln('В первой паре самых коротких слов нет грухих согласных букв.')
    else begin
      Writeln('Перечень глухих согласных букв, присутствующих'
        + ' в первой паре самых коротких слов:');
      i := 0;
      for Ch := #0 to #255 do begin
        if Ch in DRes then begin
          Inc(i);
          if i > 1 then Write(', ');
          Write(Ch);
        end;
      end;
      Writeln;
    end;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.