Программа Turbo Pascal: минимальный элемент массива

Программа находит минимальный элемент массива, а также его позицию в массиве.

program test1;

uses crt;

var

D:array[1..10] of real;

i:integer;

id,min:real;

begin

writeln('Vvedite 10 elementiv masiva');

for i:=1 to 10 do read(D[i]);

min:=D[1];

id:=10;

for i:=1 to 10 do begin

if D[i] < min then

min:=D[i];

id:=i;

end;

writeln('Minimalniy element =',min:6:2,' position = ',id:6:2);

end.

Если ошибки есть или Вы хотите что-то добавить, пишите здесь.