Akatava Var  a:array [1..10] of real; 
     i,k:integer; 
  max,c:real;  
begin  randomize; 
writeln('Введите массив'); 
for i:=1 to 10 do 
 begin   
      a[i]:=random*10+0;   
      write(' ' , a[i]:6:3); 
  end;   
max:=a[10]; 
for i:=1 to 10 do  
 if a[i]>max then  
begin   
max:=a[i]; 
  k:=i; 
end; 
writeln(' max= ' , max:6:3, ' k= ', k);     
c:=a[1];
a[1]:=a[k];
a[k]:=c;   
writeln;   
 for i:=1 to 10 do 
 write(' ' , a[i]:6:3);
end.

ЕнотЕнотыч Готово....................