Дан текстовый файл содержащий вещественные числа по одному в каждой строке. поместить эти числа в другой файл по 6 в строку перед десятичной точкой оставить 5 знаков после точки 8 знаков. т-паскаль.

Живёт одна лошадь за  городом.у неё есть   и деньги,и еда,и своё жильё.читала это лошадка книжки и была самой умной лошадью в посёлке "копыто".у   неё была целая библиотека этих книг! но слыхала она что есть такой предмет "ноутбук".всё у лошади было, а ноутбука нет. пошла лошадь по магазинам и купила себе 4 ноутбука,себе,соседке,детям и своим родителям. хорошо лошадь жила с ноутбуком,прекрасно! в онлайне находила нужные ей книжки,игралась чуток в скачки и в покер.услышала она про планшет.пошла по магазину купила самый модный,самый красивый,самый большой планшет.тоже был удобен,но ноутбук был по душе.весь день в покер играла! а с планшетом с папой общалась,фото фотографировала.но от ноутбука не отказалась! продала планшет,ненужная вещь.а за эти деньги присоединила себе интернет! и жила лошадь в обнимку с ноутбуком.

Const   m = 4;   n = 3; var   a: array[1..m, 1..n] of integer;   i, j, im, jm, mx, e: integer; begin   randomize;   mx : = -1000;   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i, j] : = random(100) - 50;           e : = abs(a[i, j]);           if mx < e then begin               mx : = e; im : = i; jm : = j           end;           write(a[i,j]: 4)       end;       writeln   end;   writeln;   writeln('максимальный по модулю элемент a[', im, '; ', jm, ']=', mx) end. тестовое решение:   -12 -36 -41     7 -45  12   -23  48    0   -1  31  14 максимальный по модулю элемент a[3; 2]=48