Вот. Дружественный интерфейс. Делай лучшим, если помог.
program pr;
var a:array of integer;t,i,k,m:integer;
begin
write('Размер массива: ');
readln(t);
Setlength(a,t);
write('Выводить элемент больше, чем: ');
readln(k);
writeln();
writeln('Заполняем массив...');
for i:=1 to t do begin
write('Элемент массива ',i,': ');
readln(a[i]);
end;
writeln();
writeln('Следующие элементы больше ',k);
for i:=1 to t do if a[i]>k then writeln('Элемент ',i,': ',a[i])
end.