procedure sort(var a,b,c,d:integer);
var x:integer;
begin
if a > b then
 begin
  x:=a; a:=b; b:=x;
 end;
if c > d then
 begin
  x:=c; c:=d; d:=x;
 end;
if a > c then
 begin
  x:=a; a:=c; c:=x;
 end;
if b > d then
 begin
  x:=b; b:=d; d:=x;
 end;
if b > c then
 begin
  x:=b; b:=c; c:=x;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i,a,b,c,d:integer;
begin
if not TryStrToInt(Edit1.Text,n)or(n<1)then
 begin
  ShowMessage('Введите целое положительное число');
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
randomize;
Memo1.Clear;
for i:=1 to n do
 begin
  a:=random(1001);
  b:=random(1001);
  c:=random(1001);
  d:=random(1001);
  Memo1.Lines.Add('Введенные числа '+inttostr(a)+'  '+inttostr(b)+'  '+
                   inttostr(c)+'  '+inttostr(d));
  sort(a,b,c,d);
  Memo1.Lines.Add('Отсортированные числа '+inttostr(a)+'  '+inttostr(b)+'  '+
                   inttostr(c)+'  '+inttostr(d));
 end;
end;