посчитайте написать программный код только с минимальным значением​

ввести переменную var

min : integer;

перед циклом

min := strtoint(memo1. lines[0]);

вместо выделенной строки, написать

if x < min then min := x;

в строке добавления линий в memo1 вместо max написать min