Pascal ! 3.5. дан одномерный массив с(n). удалить элементы одномерного массива меньшие заданного числа а; выведите на печать преобразованный массив и число его элементов. выведите на печать преобразованный массив и число его элементов.

program task31133707; var  arr: array of integer;  a, valueOfNumbers, choise, k: integer; begin  Writeln('ВВЕДИТЕ РАЗМЕРНОСТЬ МАССИВА: ');  Readln(valueOfNumbers);  SetLength(arr, valueOfNumbers);  Writeln('ВВЕДИТЕ ЧИСЛО a: ');  Readln(a);  Writeln('КАК ЗАПОЛНИТЬ МАССИВ? СЛУЧАЙНЫМИ ЧИСЛАМИ (0) ИЛИ С КЛАВИАТУРЫ?(1)');  Readln(choise);  if choise = 0 then    for var i := 0 to valueOfNumbers - 1 do      begin        var tmpNumber := Random(valueOfNumbers + 1) + 1;        if tmpNumber < a then continue        else          begin            arr[i] := tmpNumber;            Inc(k);          end;      end  else    for var i := 1 to valueOfNumbers do      begin        var tmpNumber := 1;        Readln(tmpNumber);        if tmpNumber < a then continue        else        begin          arr[i] := tmpNumber;          Inc(k);        end;      end;  Writeln('ИСХОДНЫЙ МАССИВ: ');  for var i := 1 to k do    if arr[i] = 0 then continue    else Write(arr[i], ' ');  Writeln('КОЛИЧЕСТВО ЭЛЕМЕНТОВ МАССИВА: ', k); end.