Pascal 这其中哪一部分是错误的？

我不知道这段代码的哪一部分是不正确的：

Program TrinbarjamWinningParty;
VAR
  DAP:string;
  WNA:char;
  UPM:char;
  PDR:char;
  num1:integer;
  num2:integer;
  num3:integer;
  num4:integer;
  count:integer;
  partyAcronym:array[1..4] of string;
  votesReceived:array[1..4] of integer;
  winnerVotes:integer;
  winningParty:string;

Begin
  partyAcronym[1]:='DAP';
  partyAcronym[2]:='WNA';
  partyAcronym[3]:='UPM';
  partyAcronym[4]:='PDR';
  winnerVotes:=0;

  Writeln('                   Trinbarjam Winning Party');
  for Count := 1 to 4 do
    Begin
      Writeln('Enter Votes Received for: ',partyAcronym[count]);
      Readln(votesReceived[count]);
    end;

  Begin
    partyAcronym := winningParty;
    votesReceived := winnerVotes;
    for count:=1 to 4 do
       Begin
         if count > winnerVotes then
           winnervotes := count
       end;

    writeln('Winning Pary:', winningParty);
    writeln('Votes Received:', winnerVotes);
    readln();
End.

第一:

那该怎么办？ 此

begin

没有相应的

end

，可能应该删除。同样在这一点上，

winningParty

仍然未初始化。此外，

partyAcronym

是一个数组，不能为其分配字符串

对于其他人：我想我可以从字里行间看出你想做什么，并可以自由地相应地调整你的代码

请注意，您仍然需要处理多张相等票数的情况

program TrinbarjamWinningParty;
var
  index:integer;
  partyAcronym:array[1..4] of string;
  votesReceived:array[1..4] of integer;
  winningPartyIndex:integer;

begin
  partyAcronym[1] := 'DAP';
  partyAcronym[2] := 'WNA';
  partyAcronym[3] := 'UPM';
  partyAcronym[4] := 'PDR';

  winningPartyIndex := 1;

  Writeln('Trinbarjam Winning Party');

  for index := 1 to 4 do
  begin
    Writeln('Enter Votes Received for: ', partyAcronym[index]);
    Readln(votesReceived[index]);
    if votesReceived[index] > votesReceived[winningPartyIndex] then
      winningPartyIndex := index;
  end;

  writeln('Winning Party:', partyAcronym[winningPartyIndex]);
  writeln('Votes Received:', votesReceived[winningPartyIndex]);

  readln();
end.

---

谢谢，我会查出来的……我是一个初学者，这就是为什么我在编码上有问题的原因。也许包括一些关于你期望看到什么和你正在看到什么的信息？

program TrinbarjamWinningParty;
var
  index:integer;
  partyAcronym:array[1..4] of string;
  votesReceived:array[1..4] of integer;
  winningPartyIndex:integer;

begin
  partyAcronym[1] := 'DAP';
  partyAcronym[2] := 'WNA';
  partyAcronym[3] := 'UPM';
  partyAcronym[4] := 'PDR';

  winningPartyIndex := 1;

  Writeln('Trinbarjam Winning Party');

  for index := 1 to 4 do
  begin
    Writeln('Enter Votes Received for: ', partyAcronym[index]);
    Readln(votesReceived[index]);
    if votesReceived[index] > votesReceived[winningPartyIndex] then
      winningPartyIndex := index;
  end;

  writeln('Winning Party:', partyAcronym[winningPartyIndex]);
  writeln('Votes Received:', votesReceived[winningPartyIndex]);

  readln();
end.