дан массив из 30 четырехзначных чисел .Числа кратные своему номеру заменить 1, в противном случае заменить 0

В Вашей программе есть ошибки. Кроме того, описаны лишние переменные.

const n=30var a:array of [1..n] of integer;i,k,l:integer;beginrandomize;for i:= 1 to n do a[i]:=random(9000)+1000;for i:= 1 to n do beginif a[i] mod i = 0 then a[i]:=1 else a[i]:=0;writeln(a[i]);end;end.