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

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.