ПОМОГИТЕ. 30 БАЛЛОВ Сделать и напечатать одномерный массив случайными числами от

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
  a.Transform(t-gt;t=8?0:t); a.Println
end.

Пример
n= 20
2 8 5 1 3 8 4 6 2 2 4 4 6 2 8 5 1 8 0 5
2 0 5 1 3 0 4 6 2 2 4 4 6 2 0 5 1 0 0 5

USES crt;
VAR a:array [1..999] of integer;
    i,n:integer;
begin
randomize;
WRITELN ('Введите количество элементов массива: ');
READLN (n);
WRITELN ('Начальный массив: ');
FOR i:=1 to n do
begin 
a[i]:=RANDOM(10);
WRITE (a[i],' ');
end;
WRITELN;
WRITELN ('Модифицированный массив: ');
FOR i:=1 to n do
if a[i]=8 then
begin
a[i]:=0;
WRITE (a[i],' ');
end
else
WRITE (a[i],' ');
END.