Tem um detalhe pequeno no código que dá erro

[cpdrede]

Olá galéra, muito bem, ta faltando um pequeno detalhe no meu código em pascal que não estou vendo o erro.

" Faça um algoritmo que leia cinco números, e escreva quantos desses números é negativo. "

Segue o Código

program teste;

uses crt;

var

x : integer;

num : integer;

cont : integer;

Begin

{Repeat}

clrscr;

x:= 1;

cont := 0;

for x:= 1 to 80 do

begin

gotoxy(20,1);

writeln('..:: SABER NUMEROS NEGATIVOS ::..');

gotoxy(x,3);

writeln('-');

gotoxy(x,21);

writeln('-');

end;

for x:= 1 to 5 do

begin

gotoxy(05,05);

writeln('Digite um Numero ..: ');

gotoxy(27,05);

readln(num);

gotoxy(27,05);

write(' ');

if (num < 0) then

begin

cont := num;

end;

cont:= cont+num;

end;

if (cont > 0) then

begin

gotoxy(10,10);

write('Todos Numeros Positivos ');

end

else

begin

gotoxy(10,12);

writeln('Quantidade de Numeros Negativos ', cont);

end;

readkey;

{until;}

End.

Será que alguêm poderia me dar uma luz nesse exercício. Valeu

[percautus]

Aí vai:

program teste;

uses crt;

var
  x : integer;
  num : integer;
  cont : integer;

Begin
  clrscr;
  x:= 1;
  cont := 0;
  for x:= 1 to 80 do  
  begin
    gotoxy(20,1);
    writeln('..:: SABER NUMEROS NEGATIVOS ::..');
    gotoxy(x,3);
    writeln('-');
    gotoxy(x,21);
    writeln('-');
  end;

  for x:= 1 to 5 do
  begin
    gotoxy(05,05);
    writeln('Digite um Numero ..: ');
    gotoxy(27,05);
    readln(num);
    gotoxy(27,05);
    write(' ');
    if (num < 0) then
    begin
      cont := cont +1;
    end;
  end;

  if (cont = 0) then 
  begin
    gotoxy(10,10);
    write('Todos Numeros Positivos ');
  end
  else
  begin
    gotoxy(10,12);
    writeln('Quantidade de Numeros Negativos ', cont);
  end;

  readkey;
end.

[cpdrede]

beleza, valeu muito obrigado.

Como disse faltou só um detalhe................

[percautus]

Oooops. A comparação estava com operador errado (= no lugar de ==).

  if (cont == 0) then 
  begin
    gotoxy(10,10);
    write('Todos Numeros Positivos ');
  end
  else
  begin
    gotoxy(10,12);
    writeln('Quantidade de Numeros Negativos ', cont);
  end;