TurboPascalВ массиве k1, k2 , ..., k60 отыскать сумму чисел наименьших

Напишу на PascalABC надеюсь Turbo схожи
program Test;
const N=60;
var k:array [1..N] of integer;
sum:integer;
begin
for i:=1 to 60 doнаполнение массива и сразу подсчет суммы
begin
readln(k[i]);вводите элемент с индексом i
if k[i]lt;1
then
sum:=sum+k[i];если его значение меньше еденице, то он прибавляется к сумме
end;
writeln(sum);вывод суммы на экран
end.