Есть ли лучший способ написать эту программу?

Question

Я пытался написать программу на Паскале, но всякий раз, когда я запускаю ее в 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.