Как сделать так что бы на выводе была информация не об одном объекте. а о нескольких например был вывод всех объектов например с наименьшей или с наибольшей радиацией, а не только одногоtype rad=recordnp: string; doz: integer; end; varsp : array of rad; rdd: rad; i,n,doz: integer; np: string; beginwriteln('введите количество объектов'); readln(n); setlength(sp, n); for i: =0 to n-1 dobeginwriteln('введите сведения о',i,'пункте'); readln(sp[i].np); randomize; doz: =random(100)+1; writeln('показание дозиметра'); writeln(doz); writeln('введите показания дозиметра'); readln(sp[i].doz); writeln('идёт построение списка, подождите'); writeln(''); sleep(100); end; system. console .beep(400,600); for i: =0 to n-1 doif sp[i].doz> 80 then writeln(sp[i].np)else writeln ('объектов с повышенной радиацией не обнаружено'); readln; end. программа написана на паскаль abc.net