arrays - 有没有更好的方法来编写这个程序？

Question

我尝试编写一个 Pascal 程序，但每当我在 Turbo pascal 中运行它时，它都不起作用。有什么方法可以更好地改进代码，我的代码可能出现哪些错误？：（ 提前致谢

问题：

对 10 位流行艺术家进行了调查。每个人通过指定艺术家的编号（从 1 到 10 的值）为艺术家投票。编写一个程序来读取艺术家的名字，然后是投票，找出哪个艺术家最受欢迎。选择合适的数据结束标记。

这就是我所拥有的：

Program artistes;
uses crt;
type
     artistarray = Array[1..10] of string;
     votearray = Array[1..10] of integer;

var
    y1, y2, biggest, x: Integer;
    artist: artistarray;
    vote: votearray;

begin
     clrscr;
     textcolor(10);
     biggest:= 0;
     y1:= 0;
     y2:= 0;
     x:= 0;
     write('Enter 10 artists ');
     read (artist);
     for x := 1 to 10 do
     begin  
     artists[x] := artist;
     read(artist);
     end;
     clrscr;
     readln;
     readln;
     write('enter your vote number : ');
     read(vote);
      while (vote <> 999) do 
      begin
        vote:= artist[x];
         y1 := y + 1;
         biggest:= vote;
      end;
       writeln('Enter your vote number : ');
       read(vote);
       vote:= artist[x];
       y2:= y2 + 1;
        If (y2 > y1) then
        biggest:= vote
        else
        Biggest:= biggest;
        writeln( 'The most popular artist is: ',vote, '.');
        readln;

end.