Вывести вначале максимальное, а затем минимальное из введённых чисел

var s:string[255];
i,j,k:integer;
s1,s2:string[255];
s3:string[255];
n1,n2:integer;
begin
 
readln(s);
for i:=1 to s.length do
if s[i]=' ' then begin
for j:=1 to i-1 do
 s1+=s[j];
 for j:=i+1 to s.length do
 s2+=s[j];
end;
TryStrToInt(s1, n1);
TryStrToInt(s2, n2);
 if n1>n2 then
 s3:=IntToStr(n1)+' '+ IntToStr(n2)
else  s3:=IntToStr(n2)+' '+ IntToStr(n1);
writeln(s3);
end.

var n,m : integer;
begin
  read(n,m);
  WriteLn;
  if n>m 
    then WriteLn(n,' ',m) 
    else WriteLn(m,' ',n);
end.

var
  s, c1, c2: string;
 
begin
  readln(s);
  s := s + ' ';
  c1 := copy(s, 1, pos(' ', s) - 1);
  delete(s, 1, pos(' ', s));
  c2 := copy(s, 1, pos(' ', s) - 1);
  delete(s, 1, pos(' ', s));
  if strtoint(c1) > strtoint(c2) then
    writeln(c1, ' ', c2)
  else
    writeln(c2, ' ', c1);
end.

var n,m : integer;
begin
  read(n,m);
  writeln(n);
  writeln(m);

read(n,m);