Вывести на экран новый массив, состоящий из элементов прежнего массива, больших 10 - Free Pascal

Формулировка задачи:

Массив заполнен случайными числами. Вывести на экран новый массив, состоящий из элементов прежнего массива, больших 10. Вот что получилось:

Program Example;
Uses Crt;
const N=10;
Var
k: array [0..N] of integer;
i: byte;
begin
ClrScr; Randomize;
For i:=1 to N do begin
k[i]:=Random (30), Write (k[i]:3);
end;
Writeln;
For i:=1 to N do
if Abs(k[i]>10) then Writeln ('Элемент=',k[i],'');
Writeln ('Изменённый массив');
For i:=1 to N do
Write (k[i]:4);
end.

Подскажите, что здесь неправильно?

Решение задачи: «Вывести на экран новый массив, состоящий из элементов прежнего массива, больших 10»

Листинг программы

var Porog : integer;
.....
Porog := 10;
.....
if k[i]>Porog then ...
 
Во-вторых, неправильное окончание программы.
Ты используешь следующий кусок:
 
for i:=1 to N do
write(k[i]);
end.

Объяснение кода листинга программы

Объявлена переменная Porog типа integer (целое число).
В блоке кода происходит присвоение переменной Porog значение 10.
В цикле for происходит перебор элементов массива k от 1 до N.
В каждой итерации цикла проверяется условие k[i]>Porog, то есть выводится элемент массива k, значение которого больше 10.
В конце программы отсутствует завершающая ключевая команда end. (или finally).