No need to be ashamed. No matter how long you've been programming, there will always be people who write better, cleaner code. Just make sure you learn from it so you can use it the next time.

Anyway about your code. It's really not that bad at all. In fact, you're almost there already.

Code:
var   count,i,totnum,numcheck: integer;
                pos,zero,neg:boolean;

procedure askNumber();
begin
   writeln('what numbers will be checked?');
   read(numcheck);

   pos:=numcheck>0;             //boolean variables
   neg:=numcheck<0;
   zero:=numcheck=0;

   if pos then writeln('This is a positive number');
   if neg then writeln('This is a negative number');
   if zero then writeln('This number is Zero');
end;

procedure askTotal();
begin
    write('Please type in how many numbers will be input ');
    readln(totnum);

    for count:= 0 to totnum-1 do askNumber()
end;

begin //main
  askTotal()
end.
In the code above, which is mostly yours, I have separated the first question and placed it in a new procedure, together with a for-loop, which repeats the second procedure with the 2nd question.

I have not completed your assignment which asks for the totals of positive/negative values, but I'm pretty sure you can do the yourself now. If not, we'll still be here...