Вмассиве z(10) найти минимальный элемент и сформировать новый массив, каждый элемент которого получится умнождением элемента массива z на его минимальный элемент. вывести оба массива. этоне для моих куриных мозгов

Var a,b,i,min:longint;
m,l:array[1..10] of longint;
begin
min:=100000;
for i:=1 to 10 do
begin
read(m[i]);
if m[i]<min then
min:=m[i];
end;
for i:=1 to 10 do
begin
l[i]:=m[i]*min;
end;
for i:=1 to 10 do
write(m[i],' ');
writeln;
for i:=1 to 10 do
write(l[i],' ');
end.

Можно попробывать набрать вот так))