(работа с одномерным массивом, компонента ТМеmо)

[Alexandr...]

Задание:
Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа, включительно до нуля.

В Delphi в оконном режиме

Вот вроде код программы в консольном режиме:

var
m:array[1..100]of integer;
i,n:integer;
begin
 write('N->');
 readln(n);
 for i:=1 to n do read(m[i]);
 readln;
 i:=1;
 while m[i]<>0 do
 begin
  write(m[i],' ');
  inc(i);
 end;
 readln;
end.

А мне нужно в оконном помогите пожалуйста

[Человек_Борща]

Код поместить в кнопку правильно. end. заменить на end; Метод Write заменить на Memo1.Lines.Ad(<то же что и для Write>);
ReadLn - убрать.

[Алексей_2012]

procedure TForm1.Button1Click(Sender: TObject);
var
m:array[1..100]of integer;
i,n:integer;
begin
memo1.lines.add('N->');
n:=strtoint(edit1.text);
 for i:=1 to n do read(m[i]);     //что читаем в массив?
 i:=1;
 while m[i]<>0 do
 begin
 memo1.lines.add(inttostr(m[i]));
  inc(i);
 end;
end;

Поместите мемо, tedit (standart) и кнопку, нажмите на нее два раза и скопируйте код, и ответьте на вопрос, откуда берется последовательность чисел? Рандомное заполнение или вводится с клавиатуры?