24:
Код:
for i:=1 to k do memo1.Lines.Text:=memo1.Lines.Text+'P['_IntToStr(i)+'='+IntToStr(p[i])+' ';
26:
Код:
for i:=1 to k do memo1.Lines.Text:=memo1.Lines.Text+'N['_IntToStr(i)+'='+IntToStr(n[i])+' ';
А вообще, это не очень хорошо так с Memo обращаться. Лучше сделать буферную строковую переменную, собрать строку в ней, а потом уже в Memo добавить.