Exercicio 4 de procedimento

Program Pzim ;
{Escrever um programa que, utilizado de procedimentos, leia um valor e mostre :
a) seu fatorial
b) seu quadrado
garante que o numero lido seja positivo.}

var    //variaveis globais
num:integer;

{a partin daqui é o procedimento de fatorial }
procedure fatorial(x:integer);
var
fat:integer;
i:integer;

begin
    fat:=1; // inicia-se a variavel com 1, pois por padrão seria zero, e se voce multiplica qualquer num por zero dá sempre zero
    for i:=1 to x do
        begin
            fat:=fat*i;
        end;
    writeln('O fatorial do numero ', x, ' é : ',fat);        //aqui mostra o resultado
end;

{a partin daqui é o procedimento de quadrado }
procedure quadrado(y:integer);
var
quad:integer;

begin
    quad:=y*y;   
    writeln('O quadrado do numero ', y, ' é : ', quad);    //aqui mostra o resultado
end;

        {os procedimentos devem estar entre as variaveis globais e o inicio do programa
            mas geralmente é mais viavel, fazer a parte do programa e depois vim fazer os
        procedimentos em cima}
 Begin
     {inicio do programa}
     writeln('Digite um numero : ');
     readln(num);
         if (num>0) then
             begin
                 fatorial(num);
                 quadrado(num);
             end
         else
            writeln('Digite um numero positivo');

 End.