Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка [-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]div10<>m[i] mod 10)
then writeln(m[i]);
close (t);
end;