4. Пользователь вводит количество элементов массива, массив заполняется случайными целыми числами, после чего выводятся те из них, что больше 50

Program n1;type mas= array of Integer;var imas: mas;n,i: integer;beginrandomize;writeln('введите длинну массива: ');readln(n);SetLength(imas, n);for i:=0 to n do imas[i]:=random(100);for i:=0 to n do if(imas[i]>50) then writeln(imas[i]);end.