Как сделать, чтобы ответ выводил 1 раз

program toys;
type toy=record
    nazvanie:string[20];
    stoimost:integer;
    vozvrast:1..5;
    end;
var shop:array [1..3] of toy;
   good:toy;
   n:word;
  k,s1,s, i:integer;
begin
        write('Кличество игрушек ');
    readln(n);
    for i:=1 to n do begin
        write('Название игрушки ');
        readln(shop[i].nazvanie);
        write('стоимость');
        readln(shop[i].stoimost);
        write('возрастная группа детей ');
        readln(shop[i].vozvrast);
end;
        write('введите возраст и сумму');
        read(k,s1);
       for i:=1 to n do
       while s<=s1 do begin
        with shop[i] do
            if (vozvrast = k) then
                writeln(nazvanie,' ',stoimost,' ',vozvrast);
                s:=s+shop[i].stoimost;
                end;
 
                end.

program toys;
type toy=record
nazvanie:string[20];
stoimost:integer;
vozvrast:1..5;
end;
var shop:array [1..3] of toy;
good:toy;
n:word;
k,s1,s, i:integer;
begin
write('кол игрушек ');
readln(n);
for i:=1 to n do begin
write('навзание игрушек ');
readln(shop[i].nazvanie);
write('стоймость ');
readln(shop[i].stoimost);
write('возрастная группа детей ');
readln(shop[i].vozvrast);
end;
write('Введите возраст и сумму ');
read(k,s1);
for i:=1 to n do
while s<=s1 do begin
with shop[i] do
if (vozvrast = k) then
s:=s+shop[i].stoimost;
end;
writeln(shop[i].nazvanie,' ',shop[i].stoimost,' ',shop[i].vozvrast);{выводит результат один раз}
end.