Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5

// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5 var ish, krat: array [1..30] of word;     i,j,x      :byte; begin  j:=1;   randomize;   for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)   begin     ish[i]:=random(1000);     writeln (i,' элемент исходного массива ',ish[i]);   end;   writeln ('находим элементы кратные пяти:');   for i:=1 to 30 do   begin       x:= ish[i] mod 5; //определяем элементы кратные пяти       if x=0 then         begin          //и заполняем новый         krat[j]:=ish[i];         writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');         j:=j+1;         end;    end; end.