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

uses crt;
var m : array[1..100]of integer;
i, k, N, b, j : integer;
 
begin
    clrscr;
    randomize;
    N := 10;
    writeln('Исходный массив');
    for i:=1 to N do
    begin
        m[i] := -40 + random(71);
        write(m[i],' ');
    end;
    i := 1;
    while i <= N do
    begin
        if (abs(m[i])<10) or (abs(m[i]) mod 10 = abs(m[i]) div 10) then
        begin
            for j := i to N do m[j] := m[j+1];
            dec(N);
        end else inc(i);
    end;
    writeln;
    writeln('После удаления из него элементов из одинаковых цифр');
    for i:=1 to N do write(m[i],' ');
    
    writeln('K -> ');
    readln(K);
    i := 1;
    while i <= N do
    begin
        if (abs(m[i]) mod 10 = 1) or (abs(m[i]) div 10 = 1) then
        begin
            inc(N);
            for j:=N downto i+1 do m[j]:=m[j-1];
            m[i]:=k;
            i := i + 2;
        end else inc(i);
    end;
    writeln;
    writeln('После вставки элемена K');
    for i:=1 to N do write(m[i],' ');
 
    for i:=1 to 3 do
    begin
        b := m[i];
        m[i] := m[N-(3-i)];
        m[N-(3-i)] := b;
    end;
    writeln;
    writeln('После перестановки элементов');
    for i:=1 to N do write(m[i],' ');
 
    readln;
end.