Определение семи минимальных введенных элементов

var x, t: string;
i, j, m, h: integer;
a: array[1..7] of integer;
BEGIN
 for i:= 1 to 7 do
 a[i]:= maxint;
 while x<>'.' do
 begin
  read (x);
  val (x);
  for i:= 1 to 7 do
  if x< a[i] then
  begin
   for j:= 7 downto i+1 do
   a[j]:= a[j-1];
   a[i]:=x;
   break;
  end;
 end;
 for i:= 1 to 7 do
 write (a[i]);
END.

procedure Sort(var st:string);
{ (C) Puporev}
var
  n,i,j:byte;
  c:char;
begin
  n:=ord(st[0]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if st[i]>st[j] then
        begin
          c:=st[i];
          st[i]:=st[j];
          st[j]:=c;
        end;
end;
 
var
  x: string;
  c:char;
  i: integer;
BEGIN
  x:='';
  while c<>'.' do
    begin
      read (c);
      x:=x+c;
    end;
  delete(x,length(x),1);  
  writeln('Исходная строка: ');
  writeln(x);
  sort(x);
  for i:= 1 to 7 do
    write (x[i]);
  readln;
END.

writeln(new string(s.ToCharArray().OrderBy((c : char) -> Ord(c)).Take(7).ToArray()));