помогите пожалуйста! допустим имеется одномерный массив, содержащий числа от 0 до 49 включительно.требуется исключить из него все элементы, значения которых меньше 15.

Const N = 13;VarA,B:array[1..N] of integer;i,j:integer;BeginWrite('Исходный массив:      ');For i:= 1 to N do    Begin    A[i]:=random(50);    Write(A[i]:3)    End;WriteLn;Write('Переработанный массив:');j:=0;For i:= 1 to N do    if A[i]>=15 then       Begin       j:=j+1;       B[j]:=A[i]       End;For j:= 1 to j do    Write(B[j]:3)End.Пример:Исходный массив:       29  8 19  3  0 11 39  9 34  4 45 15  3Переработанный массив: 29 19 39 34 45 15