Мама послала петю в магазин за продуктами, дав ему 500 рублей. известна стоимость каждого из 7 продуктов, которые он купил. определить, хватит ли пете денег для покупки данных продуктов. ( паскаль )

Var ar:array[1..7] of integer;
k,i:integer;
begin;
for i:=1 to 7 do
begin;
writeln('Введите цену ',i,' продукта:');
readln(ar[i]);
k:=k+ar[i];
end;
if k>500 then writeln('Не хватит') else writeln('Хватит');
end.