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

в той же папке, где будет программа, создаете два блокнота, называете input и outputa:array[1..10000] of integer;i, k, min, imin:integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt');rewrite(output);                     rewrite(input);}for i:=1 to 10 doread(a[i]);min:=a[1];for i:=1 to 10 doif min>a[i] then begin min:=a[i]; imin:=i; end;writeln;writeln(min,' ', imin); end.задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.