Program z1;
uses crt;
const n = 50;
Var mas:array [1..n] of integer;
    i,j,m: integer;
Begin
Randomize;
writeln('исходный массив');
For i:= 1 to n do
begin
 mas[i]:=random(200);
 write(mas[i]:4);
end; 
for i:=1 to n-1 do
for j:=1 to n-i do
if mas[j]>mas[j+1] then
begin 
 m:=mas[j]; mas[j]:=mas[j+1];
 mas[j+1]:=m;
end;
writeln;
m:=mas[1];  mas[1]:=mas[n];
mas[n]:=m;
writeln('измененный массив');
for i:=1 to n do
write(mas[i]:4) 
End.