Выведите на экран одномерный массив, раскрасив в нём синим цветом первый кратный 5 элемент.

Вывел на экран одномерный массив, раскрасив в нём синим цветом первый кратный 5 элемент

for i:=1 to 10 do

  if a[i] mod 5 = 0 then  

   begin

        TextColor(blue);

        writeln(a[i]);

        goto 1;

   end;

   else

      writeln(a[i]);

   1: for i to 10 do

       writeln(a[i]);

    readln

end.