Ordenando um vetor com a linguagem Pascal utilizando o editor LAZARUS

É apos alguns meses sem postar nada e sem dar noticias, voltei comecei a estudar um pouco de pascal e suas funcionalidades e decide fazer um poster sobre como ordenar um vertor que por sinal é muito util
irei falar de como ordena-lo em ordem crescente e em outras postagem como utiliza-lo para encontrar o menor e o maior valor digitador por um usuario.
Vamos começar abaixo estara todo o codigo comentado caso alguem queira é so copiar e colar no LAZARUS  estes comando esta utilizando o console.

program ordenandoVetor;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

var
//aqui abaixo contruo uma variavel do tipo array que é um vetor com varias posições
vetor: array[1..4] of integer;
//cria-se duas varias do tipo inteiro para serem os contadores
i,j, menor : integer;
begin

//é criado uma estrutura de repetição para ler os numeros digitado pelo usuario
    for i:=0 to 3 do
    begin
         writeln('insira um valor na posição: ', i);
         read(vetor[i]);
    end;
//a função que sera apresentada abaixo é para ordenar um vetor em ordem crescente
// aqui vamos ter uma nova estrutura de repetição e logo abaixo outra
      for i:= 0 to 3 do
      begin
//aqui começa a nova estrutura de repetição
      for j:= 0 to 3 do
      begin
//temos aqui um condição que pergunta se um posição com valor é maior que a outra
           if (vetor[j] > vetor[i]) then
           begin
//se o valor for maior entao ele ira fazer o seguinte o valor do vetor na posição I
//e coloca ele como o menor na variavel MENOR
           menor:= vetor[i];
//aqui é feito a troca de posições a posição do vetor I  receberar o que estava na posição J
           vetor[i]:=vetor[j];
//e aqui seria o primeiro valor que o i possuia que é representado pela variavel MAIOR
           vetor[j]:=menor;
           end;
           end;

      end;
//neste trecho é exibido em nova ordem atraves de estrutura de repetição
      for i:=0 to 3 do
      begin
      writeln(vetor[i]);
      end;

      read(j);

end.

espero ter ajudado duvidas entrem em contato