Определить виды товаров, общая стоимость которых не превышает S

Program massiv; 
uses crt; {Подключение модуля CRT}
type { Раздел описания типов переменных. Эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел }
qwert = record 
firma: string[20]; {исходная и преобразуемая строки}
tovar: string[20];
cena: integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение }
kolichestvo: integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение }
 
end; 
var {Описываем переменные.}
A : array [1..100] of qwert; {Массив}
n,j,s,k,f: integer; {Переменная, хранящая индекс элемента массива, к которому идет обращение }
 
begin { Начало программы }
Clrscr; {Очистка экрана}
Writeln(' Сколько фирм поставщиков') ; 
writeln; {Переход на новую строку}
readln(n);  {Ввод переменной n}
Clrscr; {Очистка экрана}
for j:=1 to n do { Обращение к элементам массива происходит в цикле, по очереди }
 { Ввод массива с клавиатуры }
begin { Начало цикла ввода элементов массива }
writeln(' Введите название фирмы-поставщика' ); 
readln(A[j].firma); {Ввод названия фирмы}
Writeln(' Сколько видов товара поставляет данная фирма?') ; 
writeln; {Переход на новую строку}
readln(k);  {Ввод переменной k}
Clrscr; {Очистка экрана}
for f:=1 to k do { Обращение к элементам массива происходит в цикле, по очереди }
begin;
writeln(' Введите название товара' ); 
readln(A[j].tovar); {Ввод названия товара} 
Writeln(' Введите цену' ); 
readln(A[j].cena); {Ввод цены товара}
writeln(' Введите количество' ); 
readln(A[j].kolichestvo); {Ввод колечества товара}
end;
Clrscr; {Очистка экрана}  
end; { Конец цикла ввода элементов массива }
 Clrscr; {Очистка экрана}
writeln; 
writeln(' Изделие I Цена одного изделия I Количество' ); 
writeln(' ---------------------------------------'); 
for j:=1 to n do
writeln(  A[j].tovar, '    I    ',A[j].cena,'   I   ' ,A[j].kolichestvo, '    I    ',A[j].firma); {Вывод элементов массива на экран}
Writeln(' Нажмите Enter для расчета') ; 
readkey; 
Clrscr; {Очистка экрана}
writeln; 
writeln(' Изделие    I    Общая стоимость'); 
writeln(' ---------------------------------------'); 
for j:=1 to n do 
writeln(  A[j].tovar,    '         I           '    ,A[j].cena*A[j].kolichestvo); {Вывод элементов массива на экран}
Writeln(' Нажмите Enter для завершения') ;  { После вывода массива элементов - переход на новую строку }
Writeln(' Введите максимальную стоимость') ; 
writeln; {Переход на новую строку}
readln(s);  {Ввод переменной s}
readkey; 
end.