Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка

program zz1;

const n = 50;  // задаем количество частей в массиве

var  i, s, k, a:integer; // задаем переменные целого типа

f1, f2:text;

begin

assign(f1,file1.txt);

rewrite(f1);

assign(f2,file2.txt);

rewrite(f2);

for i:=1 to n do  // получаем n чисел случайных и записываем их в файл

write(f1,random(71)-40:5);

close(f1);

assign(f1,file1.txt);

reset(f1);

while not eof(f1) do

begin

read(f1,a);

if (alt;-9) or (agt;9) // проверяем, если число из одной цифры или схожих цифр, то в новый массив их не записываем

then begin s:=a div 10; k:=a mod 10;if slt;gt;k then write(f2,a, );end;

end;

close(f1);

close(f2);

end.