Опять о номерах Опции

[Новичок]

Здравствуйте.
Помогите пожайлуста решить задачу
Дан массив. Определить количество элементов , больших суммы всех элементов массива и напечатать их номера
Задачу практически решил , но проблема с выводом номеров

program f293;
var a:array[1..5] of integer;
s,i,k:integer;
begin
s:=0; k:=0;
for i:=1 to 5 do begin
readln(a[i]);s:=s+a[i];
end;
for i:=1 to 5 do begin
	if a[i]>s then k:=k+1;writeln (i);
end;
writeln(k);
end.

Тэги!! Lapp.

[Новичок]

Да забыл операторные скобки, хорошо попробую сейчас с ними

Добавлено через 4 мин.
Скажите в каком месте их поставить, в
проверке условия в цикле , но там ведь идёт подсчёт основного действия в массивах

for i:=1 to 5 do begin
if a[i]>s then k:=k+1;writeln (i);
end;
writeln(k);

Тэги!! Lapp.