Удалить из массива все элементы, у которых первая и вторая цифры одинаковые

[COLOR=RoyalBlue]Program[/COLOR] marazm;
[COLOR=RoyalBlue]uses[/COLOR] crt;
 
[COLOR=RoyalBlue]var[/COLOR] a:array[0..100] of integer;
i:integer;
 
[COLOR=RoyalBlue]begin[/COLOR]
randomize;
[COLOR=RoyalBlue]for[/COLOR] i:=0[COLOR=RoyalBlue] to[/COLOR] 100 [COLOR=RoyalBlue]do[/COLOR] a[i]:=random(280)-140; {заполнение массива}
 
[COLOR=RoyalBlue]for[/COLOR] i:=0 [COLOR=RoyalBlue]to[/COLOR] 100 [COLOR=RoyalBlue]do[/COLOR]  {перебираем массив}
  [COLOR=RoyalBlue]if[/COLOR] (a[i]>10)[COLOR=RoyalBlue]or[/COLOR](a[i]<-10) [COLOR=RoyalBlue]then[/COLOR]  {проверяем, является ли эл-т массива двузначным числом}
   [COLOR=RoyalBlue]if[/COLOR] (a[i]<100)[COLOR=RoyalBlue]or[/COLOR](a[i]>-100) [COLOR=RoyalBlue]then[/COLOR] {проверяем не является ли эл-т трехзначным}
    [COLOR=RoyalBlue]if[/COLOR] (a[i] [COLOR=RoyalBlue]div[/COLOR] 10)=(a[i] [COLOR=RoyalBlue]mod[/COLOR] 10) [COLOR=RoyalBlue]then[/COLOR] a[i]:=0 {проверяем соответсвует ли первое число второму}
   [COLOR=RoyalBlue]else [/COLOR]
    [COLOR=RoyalBlue]if[/COLOR] (a[i] [COLOR=RoyalBlue]div[/COLOR] 100)=((a[i] [COLOR=RoyalBlue]mod[/COLOR] 100) [COLOR=RoyalBlue]div[/COLOR] 10) [COLOR=RoyalBlue]then[/COLOR] a[i]:=0{то же что и строчкой выше, только для 3хзначных чисел)
 
[COLOR=RoyalBlue]end[/COLOR].

program marazm2;
 
uses crt;
 
Const
    n=100;        {количество элементов}
  type
   elements= -141..141;            {какие значения могу приниамть элементы}
 
var
a:array[0..n] of elements;        {массив}
i,x,j,y:integer;
 
begin
Randomize;
For i:=0 to n-1 do
a[i]:=random(140);        {заполняем массив}
 
i:=1;
While i<n do begin
   dec(a[i], 2*a[i]);         {делаем в нем отрицательные эллементы}
   randomize;
   x:=random(4);
   inc(i,x);
   end;
 
j:=1;
while j<=n do          {цик подсчета количества элементов, и удаления их}
begin
  For i:=0 to n-1 do
  begin
    if (abs(a[i])>10) and (abs(a[i])<100)then begin        {когда двузначное то}
       if (abs(a[i]) mod 10)=(abs(a[i]) div 10) then begin a[i]:=0;inc(y);  end;            {если цифра первого разряда равня цифре второго то удаляем элемент, поворачиваем счетчик }
        end
        else if (abs(a[i])>=100) then  begin           {иначе если имеем трехзначное число}
       if (abs(a[i]) div 100)=((abs(a[i]) div 10) mod 10) then begin a[i]:=0;inc(y);  end;         {то тогда если цифра третьего разряда  равна цифре второго то удаляем элемент, поворачиваем счетчик}
       end;
      end;
     inc(j);
 end;
writeln('Vsego bilo udaleno ',y,' elementov');         {конец, пиши количество элементов}
writeln('Press enter for exit');
readln;
end.

For k:=1 to m*2+1 do begin
 for l:=1 to n do begin
     If a[k,l] mod 5=0 then
         begin
            For j:=1 to n do a[k,j]:=0;
         end;
         end;
     end;