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

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

Вот вроде код программы в консольном режиме:
var
m:array[1..100]of integer;
i,n:integer;
begin
write('N->');
readln(n);
for i:=1 to n do read(m);
readln;
i:=1;
while m<>0 do
begin
write(m,' ');
inc(i);
end;
readln;
end.

Помогите написать в оконном режиме