Записать в Мemo

[Pihan]

я в мемо1 ищу максимальное и минимальное значение, но не знаю как записать их патом в мемо2....

Код такой:

procedure TForm1.N1Click(Sender: TObject);
var
s,s1:string;
i,i1,j,buf,il:integer;
k:boolean;
begin
memo2.Lines.Clear;
i:=0;i1:=0;j:=0;ai:=0;
while memo1.Lines[i]<>'' do
begin
s:=memo1.Lines[i];
for i1:=1 to length(s)do
if s[i1]=' ' then
begin
inc(ai);
a[ai]:=strtoint(s1);
j:=0;
s1:='';
end
else begin
s1:=s1+' ';
inc(j);
s1[j]:=s[i1];
end;
inc(i);
end;
repeat
k:=true;
for il:= 1 to ai-1 do
if a[il]>a[il+1] then
k:=false;
until k;

end;

[VilAm]

но не знаю как записать их патом в мемо2....

memo2.lines.add('то что вы хотите добавить');

[Pihan]

тоесть выглядеть будет так memo2.lines.add('max=',a[i],'min=',a[i]);?

[VilAm]

memo2.lines.add('max='+intostr(a[i])+' min='+inttostr(a[i]));

вот так это будет выглядеть
только одно странно почему у вас и мин и макс с одним индексом?

[Pihan]

цикл не дописан просто, это так для примера, щас тока на поиск максимального написанно, поэтому с одинаковыми индексами

[mihali4]

Закрыто из-за нежелания оформлять код по правилам