Pascal/Delphi O que ta de errado no algorítimo? Diz " '$' nao esperado" na linha 16

[Abbaab DiCabra]

 

Program Pzim ;

Var
     compra, repetidor, total:integer;
     vet: array [1..4] of integer;
     nome: char;
Begin;
for repetidor:=1 to 4 do;
Writeln('Digite o valor das compras feitas: ');
readln(vet[compra]);
total := total + vet[compra];
writeln('O valor das 4 compras é' , vet[compra], ' e o total é de' , total, ')

end;

End

 

[Pedro Math.pi]

Deve ser a sintaxe. Tem ponto e vírgula onde não deveria ter (Begin, For) e está faltando ponto final no último End.

[raidenxyz]

Opa, estava buscando matéria para fazer um trabalho e acabei me deparando com sua postagem. Como uma pessoa que entrou no mundo da programação recentemente tentei reformular o seu codigo. Espero ajudar

Program Pzim ;

Var
      total,i :integer;
     compra: array [1..4] of integer;
     
Begin

        for i:=1 to 4 do
        begin
        
                Writeln('Digite o valor das compras feitas: ');       
                readln(compra[i]);                                   
                total := total + compra[i];

        end;

        for i:=1 to 4 do
        begin
        
                writeln('O valor da ',i, ' compra é ' ,compra[i]);
                
    end;
    
    Writeln('O valor total é ',total);
    readkey();
    
End.

 

[Simon Viegas]

@raidenxyz, segue sugestão do mesmo código reindentado e apenas um detalhe deixando a nomenclatura do vetor no plural:

 

program Pzim;
var
  total, i: integer;
  compras: array [1..4] of integer;
begin
  for i:=1 to 4 do
  begin
    writeln('Digite o valor das compras feitas: ');
    readln(compras[i]);
    total := total + compras[i];
  end;
  for i:=1 to 4 do
  begin
    writeln('O valor da ', i, ' compra é ', compras[i]);
  end;
  writeln('O valor total é ', total);
  readkey();
end.