Pascal ( Ciclos e Arrays ) HELP ME!

[Diamond_Sux]

Boas, estou a criar um programa que me indica o numero de pessoas que gostaram ou não gostaram de um produto, este programa está a ser feito com a ambição de ser perfeito. Estou farto de procurar e perguntar mas não encontro assim nada de jeito. Estou a tentar fazer um repetição do programa todo,e nessa repetição, as variáveis iram ficar armazenadas, já que dividi o programa em 2 partes, 1 parte para o sexo masculino e outro para o feminino.
Bem, vou vos passar o código, por favor ajudem-me neste quebra-cabeças

program Projectonovoproduto;
uses crt;
Var A: integer;
    B: char;
    C: integer;
    D: char;
    E: integer;
    F: Char;
    S: char;
    N: char;
    M: Char;
    H: integer;
    G: char;
    i: integer;
    CountN: integer;
    CountS: integer;
    CountM: integer;
    CountF: integer;

Begin

  CountN:=0;
  CountS:=0;
  CountF:=0;
  CountM:=0;


  Writeln('introduza o sexo da pessoa que vai intruduzir [M/F]');
   Readln(B);
 While (B<>'M') and (B<>'F') do
  Begin
   Writeln('introduza o sexo da pessoa que vai intruduzir [M/F]');
   Readln(B);
   clrscr;
  End;
 If (B=M) then
  CountM:=CountM+1;
  Begin
    writeln('Introduza o numero de pessoas que quer intruduzir');
    Readln(C);

    for i:=1 To C Do
     Begin
      Writeln('introduza se gostou(S) ou se nao gostou(N) do produto');
       Readln(D);

      If (D='S') then
       CountS:=CountS+1;
      If (D='N') Then
       CountN:=CountN+1;
     End
   End;


   If B='F' then
    CountF:=CountF+1;
    Begin
     writeln('Intrudoza o numero de valores que quer intruduzir');
     Readln(H);

      for i:=1 To H Do
      Begin
       Writeln('intrudoza se gostou(S) ou se nao gostou(N) do produto');
        Readln(G);

       If (G='S') then
        CountS:=CountS+1;
       If (G='N') Then
        CountN:=CountN+1;
      End
   End;
 
 Writeln( CountS,' Pessoas do gostaram do produto');
 Writeln( CountN,' Pessoas não gostaram do produto');


 Readln;
End.

Ele ainda está um pouco incompleto....

 

[NightWalkerNS]

poes uma condiçao do tipo

Repeat
Writeln ('Deseja repetir? S/N');
Readln (ch);
Until (ch=S) or (ch=N);



poes um repeat antes dos contadores e o until ch=N antes do ultimo end.

Espero ter ajudado

 

[Diamond_Sux]

thanks nightwalker....podias era ter levantado o rabo da cadeira e vir ao meu pc me ajudar... já que és da minha turma xD