Паскаль! От за рабочую программу исправьте данный код под условие задачи, данные не записываются в файл. Также нужно через // после команд написать что они делают. -- var f:file of integer; a, mn, mx, i, n:integer; begin assign(f, 'file.txt'); rewrite(f); write('Сколько компонент ввести в файл? n='); readln(n); writeln('Введите ', n, ' целых чисел:'); for i:=1 to n do begin readln(a); write(f, a); end; writeln('Содержание файла:'); reset(f); seek(f, 0); read(f, a); mn:=a; mx:=a; write(a, ' '); for i:=1 to filesize(f)-1 do begin seek(f, i); read(f, a); if a> mx then mx:=a else if a write(a, ' '); end; writeln; writeln('Макс.=', mx, ' Мин.=', mn); close(f); readln end. -- Условие задачи: Создать файл действительных случайных чисел. Найти наибольший и наименьший элементы и дописать в файл.