Найти минимальный элемент и номер первого минимального элемента массива из 10 элементов. Массив считывается из файла, результат дописывается в этот же файл.

В той же папке, где будет программа, создаете два блокнота, называете input и output

a:array[1 ... 10000] of integer;

i, k, min, imin:integer;

begin

assign (input,'input. txt');

reset (input);

assign (output,'output. txt'); { если в тот же, то assign (input,'input. txt');

rewrite (output); rewrite (input); }

for i:=1 to 10 do

read (a[i]);

min:=a[1];

for i:=1 to 10 do

if min>a[i] then begin min:=a[i]; imin:=i; end;

writeln;

writeln (min,' ', imin);

end.

задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.