ввести переменную var
min : integer;
перед циклом
min := strtoint(memo1.lines[0]);
вместо выделенной строки, написать
if x < min then min := x;
в строке добавления линий в memo1 вместо max написать min
