Untitled

program bobbless;
uses crt;
const
 max=100;
type
 wektor=array[1..max] of integer;
var
 A:wektor;
 n:byte;
procedure los (var A:wektor;n:byte);
var i:byte;
begin

for i:=1 to n do A[i]:=random(101);
end;

procedure sort (var A: wektor; n:byte);
var i,j : byte;
p:integer;

begin
for i:=1 to n-1 do
for j:=i+1 to n do
   if A[i]>A[j] then
                begin
                  p:=A[i];
                  A[i]:=A[j];
                  A[j]:=p;
                end;
end;

procedure wypis (var A:wektor; n: byte);
var i:byte;
begin
for i:=1 to n do write(A[i]:4);
writeln;
end;

begin
  clrscr;
  randomize;
  write('Podaj liczbe elementow: ');
  readln(n);
  los(A,n);
  writeln('Przed sortowaniem: ');
  wypis(A,n);
  sort(a,n);
  writeln('Po sortowaniu: ');
  wypis(A,n);
  readkey;
end.