Задан массив А(10). Получить из него массив В, состоящий из элементов массива А, которые больше значения T.Программу сделать в Паскале. - вопрос №1216103

Pascal ABC

program mas;

const N:integer = 10;

var a:array [1..N] of integer;
b:array[1..N] of integer;
T:real;
f:boolean := false;
i:integer;
j:integer;

begin
randomize;
for i := 1 to N do
a[i] := random(100);
write('Введите значение t: ');
readln(T);
j := 1;
for i := 1 to N do
if a[i] > T then
begin
f := true;
b[j] := a[i];
j := j + 1;
end;
if f = true then
begin
writeln('Массив A: ');
for i := 1 to N do
write(a[i], ' ');
writeln;
writeln('Массив B: ');
for i := 1 to j — 1 do
write(b[i], ' ');
end;
if f = false then writeln('В массиве A нет значений больше T');
end.