паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5

program chik;var a:array[1..1000]of integer;i,n:integer;beginreadln(n);randomize;for i:=1 to n dobegina[i]:=random(41)-20;if(a[i]<0)then a[i]:=5;end;for i:=1 to n dowrite(a[i],' ');end.