Преобразовать строки:
В первом случае - можно разделить их на две отдельных вида:
category = ''
amount = 0
Во втором-же:
print("всего категорий товаров:", amount - 1)
Код с коментариями:
category = '' # Категория продукта
amount = 0 # Количество продукта
while category.lower() != "end": # Пока не введено "end"
print("категория (end - завершить):") # Выводим ввести категорию
category = input() # Ввод категории
amount += 1 # Увеличиваем значение кол-ва продуктов, при каждом вводе
print("всего категорий товаров:", amount - 1) # Выводим кол-во категорий (без "end")
var k:integer;
begin
repeat
readln(k);
until(k>1) and (k<99);
writeln('мне ',k, 'лет');
readln;
end.