Pascal/Turbo Pascal - Ayuda Con pascal

Buenas Porfa uien me pueda ayudar a corregir este problemita gracias :)
Realizar un programa que cuente cantidad de mayores y menores Teniendo en cuenta q no sabemos la cantidad de personas..... esto es lo q llevo creo q es un pequeño problema con el contador pero no se :S

Program Contador;
Uses
Crt,dos;
Var
May,Men,Edad,x,num:integer;

Begin
Clrscr;
writeln(´ingrese el numero de personas´);
readln(num);

May:=1;
Men:=1;

For X:=1 to num do

Begin
writeln(´introduzca su edad´);
Readln(Edad);

if(edad>17)then

Begin
writeln(´usted es mayor´);
end

else

begin
writeln(´usted es menor´);
end;

writeln(´el numero de mayores es´,May);
Writeln(´el numero de menores es´,Men);
end;

End.

esta hecho en delphi pero te debe funcionar igual