Exercicio federação gaúcha de futebol

1) A Federação Gaúcha de Futebol contratou você para escrever um programa para fazer uma estatística do resultado de vários GRENAIS. Escreva um algoritmo para ler o número de gols marcados pelo Inter, o número de gols marcados pelo GRÊMIO em um GRENAL, imprimindo o nome do time vitorioso ou a palavra EMPATE. Logo após escrever a mensagem "Novo GRENAL 1.Sim 2.Não?" e solicitar uma resposta. Se a resposta for 1, o algoritmo deve ser executado novamente solicitando o número de gols marcados pelos times em uma nova partida, caso contrário deve ser encerrado imprimindo:
- Quantos GRENAIS fizeram parte da estatística.
- O número de vitórias do Inter.
- O número de vitórias do Grêmio.
- O número de Empates.
- Uma mensagem indicando qual o time que venceu o maior número de GRENAIS (ou NÃO HOUVE VENCEDOR).
Observação: Para implementar um contador em Pascal (incrementar): variável := variável + 1

Program First; var golsgremio,golsinter,novojogo,novogrenal,grenais,vencedorgremio,vencedorinter,empates:integer; Begin grenais:=0; vencedorgremio:=0; vencedorinter:=0; empates:=0; writeln ('Novo Grenal? 1.Sim ou 2.Não'); read (novogrenal); writeln (' '); writeln (' '); while novogrenal = 1 do begin grenais:=grenais+1; writeln ('Quantos gols o Grêmio fez?'); read (golsgremio); writeln ('Quantos gols o Internacional fez?'); read (golsinter); if golsgremio > golsinter then begin vencedorgremio:=vencedorgremio+1; writeln ('Grêmio é o vencedor'); end else if golsgremio = golsinter then begin empates:=empates+1; writeln ('Empate'); end else begin