program Project13;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;



Procedure InputArray(InputFile: TextFile; Size: Integer; Arr: array of Integer);
var i: Integer;
begin
  AssignFile(InputFile, 'input.txt');
  Reset(InputFile);
  Readln(InputFile, Size);
  SetLength(Arr, Size);
  Dec(Size);
  for i:= 0 to Size do
  begin
    Read(InputFile, Arr[i]);
    Write(Arr[i], ' ');
  end;
  CloseFile(InputFile);
end;

Procedure FindMax(Size, Max: Integer; Arr: array of Integer);
var i: Integer;
begin
  Max := Arr[0];
  Dec(Size);
  for i:= 0 to Size do
  begin
    if (Arr[i] > Max) then
    begin
      Max := Arr[i];
    end;
  end;
end;

Procedure FindCounter(Counter, Arr: array of Integer; Size, Max: Integer);
var i: Integer;
begin
  SetLength(Counter, Max + 1);
  Dec(Size);
  for i:= 0 to Size do
  begin
    inc(Counter[Arr[i]]);
  end;
end;

Procedure Sort(Counter, Arr: array of Integer; Size: Integer);
var i, j, k: Integer;
begin
  j:= 0;
  k:= 0;
  Dec(Size);
  for i:= 0 to Size do
  begin
    if (k >= Counter[j]) then
    begin
      Inc(j);
      while (Counter[j] = 0) do
      begin
        Inc(j);
      end;
      k:= 0;
    end;
    Arr[i]:= j;
    Inc(k);
  end;
end;

Procedure ArrayToString(Arr: array of Integer; Result: string);
var i: Integer;
begin
  Dec(Size);
  for i:= 0 to Size do
  begin
    result:= result + IntToStr(Arr[i]) + ' ';
  end;
end;

Procedure SaveResult(InputFile, OutputFile: TextFile; Result: String);
begin
  AssignFile(OutputFile, 'output.txt');
  Rewrite(OutputFile);
  Write(OutputFile, Result);
  Writeln('Файл сохранен.');
  CloseFile(OutputFile);
end;

var
  InputFile, OutputFile: TextFile;
  Size, Max, i, j, k: Integer;
  Arr, Counter: array of Integer;
  Result: string;
begin
  Writeln('Данная програма производит сортировку массива подсчетом.');
  try
      if (FileExists('input.txt')) then
    begin
      Writeln('Данный массив:');
      InputArray;
      FindMax;
      FindCounter;
      Sort;
      ArrayToString;
      Writeln;
      Writeln('Матрица после преобразования:');
      Writeln(result);
      if (FileExists('output.txt')) then
      begin
        SaveResult;
      end
      else Writeln('Файла "output.txt" не существует');
    end
    else Writeln('Файла "input.txt" не существует');
  except
    on err: EInOutError do
      Write('Ошибка при чтении массива из файла');
    else Write('Ошибка');
  end;
  Readln;
end.