Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка [-40, 30]. Массив данных хранится в файле. Удалить из него все элементы, которые состоят из одинаковых цифр. Результат записать в другой файл.

Var 
m:array [1..100] of integer;

t:text;
begin
assign(t,input.txt);
reset;
for i:= to 100 do
readln(m[i]);
close(t);
assign(t,output.txt);
rewrite(t);
for i:=1 to 100 do
if (m[i]div10m[i] mod 10)
then writeln(m[i]);
close (t);
end;