Ответ:

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

min : integer;

перед циклом

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

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

if x < min then min := x;

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