Одномерный массив не менее m пойдут в уху

[olchik1980]

Вася наловил рыбешек. Веса этих рыбешек записаны в одномерном массиве. Рыбешки массой не менее m пойдут в уху, с массой менее m – пойдут коту. Написать алгоритм который составит массив в котором веса рыбешек, которые пойдут в уху.
вх: 5
45
133.000 182.000 106.000 167.000 53.000
вых
133.000 182.000 106.000 167.000 53.000

[interacia]

//Дано целое число N (>0).
//Сформировать и вывести целочисленный  массив  размера N,
//содержащий степени двойки от первой до N-й: 2,4,8,16, ....
program Array2;
var
i,j:integer;// счетчик в цикле
N:integer;// размер массива улов
a: array [1..100] of real; // массив всех рыбешек
b: array [1..100] of real; // те которые пойдут в уху
M: real; // минемальный вес рыбы для ухи
begin
// ввод данных (размер массива)
 writeln('Сколько поймал рыбешек Вася. Введите N (N<100)');
 readln(N);
 writeln('Рыбешки массой не менее m пойдут в уху.  Введите M ');
 readln(M);
 writeln('Укажите веса этих рыбешек (заполнить массив) ');
 for i:=1 to N do read(a[i]); // формирование массива по заданию
writeln;
writeln('Otvet');
j:=1; // начальное значение
 for i:=1 to N do
 begin
 if a[i]>M then begin // условие отбора рыбешек
   b[j]:=a[i];
   writeln(' ',b[j]:6:3); // форматированный вывод массива
   inc(j);
   end;
 end;
end.