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

// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5var 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.