Maior numero usando um vetor com Pascal no Lazarus

bem galera ja foi postado algumas maneira de se fazer um teste se um numero é maior com variaveis e ate mesmo com vetor como eu mesmo fiz anteriormente mais esta aqui uma maneira mais simples que gera o mesmo resultado.
Obs: caso queira fazer o teste de menor numero deve se mudar o sinal (>) na condição (IF) para (<) e ja temos um novo teste ok.

program project1;

{$mode objfpc}{$H+}

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


var num : array [1..4] of integer;
    var x , maior: integer;
    var name: string;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin
{aqui atribui o maior numero sendo zero para que
assim possa ser substituido pelo valor digitado pelo
usuario}

  maior:= 0;

  name := 'Euclézio';
  writeln();
  writeln('Digite 4 numeros:');
  writeln();

{este loop foifeito para que possa ler 4 numeros digitados
pelo usuario usando um vetor}

  for x:= 1 to 4 do
  begin
    readln(num[x]);
  end;
{começa aqui o loop que vai fazer os teste de maior}

 for x:= 1 to 4 do
 begin

{o maior numero é identificado pela posição "X" do vetor que
neste caso é o contador do loop e verifica se ele é maior que
a variavel "MAIOR" ,que recebe sempre o valor do maior numero}
      if (num[x]>maior) then
      begin
{aqui como dito a variavel só ira receber o valor do vetor na posição
"X", se esta posição for maior que a variavel "MAIOR"}

      maior:= (num[x]);
       end;

  end;

{aqui é escrito o maior numero}
  writeln('Maior: ',maior);
  writeln('CRIADO POR: ', name);
  writeln('PRESS <ENTER> TO QUIT!.');
  readln();
  writeln();
end.

até a proxima!