Дан массив из 20 целых чисел, все элементы меньше 10 заменить на 0, и вывести получившиеся массив

Program qq;

uses crt;

var A:array [1 ... 20] of integer; i: integer;

begin

for i:=1 to 20 do

readln (a[i]) ; / / ввод массива. Не указали откуда дан массив, так что введем его через enter

for i:=1 to 20 do

if a[i]<10 then

a[i]:=0; / / сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль

for i:=1 to 20 do

write (a[i], ' ') ; / / Вывод массива на экран

end.