Запишите полный текст программы. for i:=1 to n-1 do begin imax:=i; for j:=i+1 to n do if a[j]>a[imax] then imax:=j; x:=a[i]; a[i]:=a[imax]; a [imax]:=x end;
Program Zam; Var a : arrar [1..n] of integer ; i,j,n,imax: integer; Begin for i:=1 to n-1 do begin imax:=i; for j:=i+1 to n do if a[j]>a[imax] then imax:=j; x:=a[i]; a[i]:=a[imax]; a [imax]:=x end; Readln; End.
Если вы не умеете писать программы, то к чему вот это? Ошибок куча.. да и смысла в ней нет.