[lmikle]

24:

Код:

1	for i:=1 to k do memo1.Lines.Text:=memo1.Lines.Text+'P['_IntToStr(i)+'='+IntToStr(p[i])+' ';

26:

Код:

1	for i:=1 to k do memo1.Lines.Text:=memo1.Lines.Text+'N['_IntToStr(i)+'='+IntToStr(n[i])+' ';

А вообще, это не очень хорошо так с Memo обращаться. Лучше сделать буферную строковую переменную, собрать строку в ней, а потом уже в Memo добавить.