Задан текстовый файл который содержит последовательность целых чисел.Упорядочить элементы которые имеют остаток L при делении числа на K.

var
  inp, oup: text;
  m: array [1..20] of byte;
  k, n, l, i: integer;
 
begin
  writeln('Insert K');
  readln(k);
  writeln('Insert L');
  readln(l);
  assign(inp, 'input.txt');
  reset(inp);
  for i := 1 to n do
  begin
    read(inp, m[i]);
  end;
  assign(oup, 'output.txt');
  rewrite(oup);
  for i := 1 to n do
    if m[i] mod k = l
      then
      write(oup, m[i]);
      readln;
      close(inp);
      close(oup);
end.

readln(n);

var
  inp, oup: text;
  m: array [1..20] of word;
  k, n, l, i: integer;
 
procedure Swap(var a, b: word);
var
  t: word;
begin
  t := a;
  a := b;
  b := t;
end;
 
 
begin
  writeln('Insert K');
  readln(k);
  writeln('Insert L');
  readln(l);
  writeln('Insert N');
  readln(n);
  assign(inp, 'input.txt');
  reset(inp);
  for i := 1 to n do
  begin
    read(inp, m[i]);
  end;
  assign(oup, 'output.txt');
  rewrite(oup);
  for i := 1 to n do
    if m[i] mod k = l
      then
    begin
      writeln(oup, m[i]);
    end;
  close(oup);
  assign(oup, 'output.txt');
  reset(oup);
  for i := 1 to n do
  begin
    readln(oup, m[i]);
  end;
  for i := 1 to n do 
    if m[i] > m[i + 1] then
      swap(m[i], m[i + 1]);
  
  
  close(inp);
  close(oup);
end.

var
  inp: text;
  sol, m: array [1..100] of integer;
  k, n, l, i, j, top: integer;
 
procedure Swap(var a, b: integer);
var
  t: integer;
begin
  t := a;
  a := b;
  b := t;
end;
 
 
begin
top := 0;
  writeln('Insert K');
  readln(k);
  writeln('Insert L');
  readln(l);
  writeln('Insert N');
  readln(n);
  assign(inp, 'input.txt');
  reset(inp);
  for i := 1 to n do
  begin
    read(inp,m[i]);
    if (m[i] mod k = l) then
    begin
      inc(top);
      sol[top] := m[i];
    end;
  end;
  for i := top downto 2 do
    for j := 1 to i - 1 do
      if sol[j] > sol[j + 1] then swap(sol[j], sol[j + 1]);
  for i := 1 to top do
    writeln(sol[i]);
  
  close(inp);
end.