ПОМОГИТЕ. 30 БАЛЛОВ Создать и напечатать одномерный массив случайными числами от 0 до 9. Если есть в нем элементы, равные 8, то заменить их 0.
язык паскаль!

USES crt; VAR a:array [1..999] of integer;    i,n:integer;beginrandomize;WRITELN ('Введите количество элементов массива: '); READLN (n);WRITELN ('Исходный массив: ');FOR i:=1 to n dobegin a[i]:=RANDOM(10);WRITE (a[i],' ');end;WRITELN;WRITELN ('Измененный массив: ');FOR i:=1 to n doif a[i]=8 thenbegina[i]:=0;WRITE (a[i],' ');endelseWRITE (a[i],' ');END.