Известны сведения об атмосферном за неделю в городе N. В массиве данных найти номер(а) дня(ей) когда давление было ниже нормы. (700 мм.р.с.)
Помогите пожалуйста составить задачу в Pascal.

Результат работы программы на скринах, вот сама программа:

var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
begin
write ('Введите давление в ',i,' день: ');
read (a[i]);
if a[i]<700 then s:=s+1;
end;
WRITELN;
if s<>0 then
begin
write ('В ');
for i:=1 to 7 do
begin
if a[i]<700 then write (i,' ');
end;
write ('день, давление было ниже нормы!');
end;
if s=0 then write ('Давление за эти 7 дней было выше нормы!');
end.