const n=10;  
  var
  i,k,Imax,j,iimax:integer;
  mas:array [1..n] of integer;
  begin
  i:=1;
  j:=0;
  for I:=1 to n do begin
  mas[i]:=Random(100); // Заполняем массив
  Write(mas[i],' '); // Выводим массив  
  end;

  Writeln;
  Writeln;

  Imax:=0;
  for k := 1 to n-j do begin
  for I:=1 to n-j do begin
  if mas[i]>Imax then begin //находим максимальное число  
  imax:=mas[i];
  iimax:=i;
  end;
  end;

  //Тут я математически показал как поменять две переменные не используя третью

  {A := A + B;  
  B := A - B;
  A := A - B;}

  //A= mas[n-j]  
  //B= mas[iimax]  

  mas[n-j]:=mas[n-j]+mas[iimax];
  mas[iimax]:=mas[n-j]-mas[iimax];
  mas[n-j]:=mas[n-j]-mas[iimax];
inc(j);
Writeln(imax);
  Imax:=0;
  end;
  Readln;
  end.