Прочитать массив из 10 элементов минимальный элемент массива записать на первое место

var a: array[1..10] of Integer;i,n,gg,ff,hh: Integer;beginfor i:=1 to 10 dobeginwriteln('Введите ',i,' число');readln(n);a[i]:=n;end;gg:=a[i];for i:=1 to 10 dobeginif a[i]<gg then begingg:=a[i];ff:=i;hh:=a[1];end;end;a[1]:=gg;a[ff]:=hh;writeln('--------------');for i:=1 to 10 dobeginwriteln(a[i]);end;end.