uses crt;
const n=5;
var a: array[1..n] of longint; i: byte;
f: file of longint; max: longint;
begin
randomize;
clrscr;
assign(f,'file.bin'); {заполнение файла начальными значениями с их выводом на экран}
rewrite(f);
writeln(' исходные числовые параметры: ',^j);
for i:=1 to n do
begin
a[i]:=random(24001);
a[i]:=a[i]-12000;
write(a[i]:8);
write(f,a[i]);
end;
close(f);
writeln(^j,^j);
max:=1; {поиск максимального элемента и его вывод на экран}
for i:=2 to n do
if a[i]>a[max] then max:=i;
writeln(' максимальный элемент последовательности = ',a[max],^j,^j);
writeln('результат преобразования компонентов файла: '); {изменение компонентов файла с последующим выводом их на экран}
reset(f);
for i:=1 to filesize(f) do
read(f,a[i]);
close(f);
rewrite(f);
for i:=max+1 to n do
begin
a[i]:=2*a[i];
write(a[i]:8);
write(f,a[i]);
end;
close(f);
writeln(^j,^j);
writeln('запись в файл прошла успешно');
writeln('для продолжения нажмите любую клавишу...');
readkey;
end.