А откуда мы узнали что именно a[7] - минимальный элемент? Числа то вводятся рандомно.
Ну вот написал как вы сказали, посмотрите тут ошибку..
program qq;
uses crt;
var
a:array [1..10] of integer;
i:byte;
m,h,b: integer;
begin
randomize;
m:=0;
h:=10;
for i:= 1 to 10 do
begin
a[i]:= random(11);
write(a[i]:3);
if a[i]>m then m:=a[i];
if a[i]<h then h:=a[i];
end;
b:=a[m];
a[m]:=a[h];
a[h]:=b;
writeln('');
writeln(' Максимальное число : ', m);
writeln(' Минимальное число: ', h);
end.