Дан массив из 10ти целых чисел , введенных с клавиатуры. найти и заменить все нулевые элементы на минимальный элемент массива.

На паскале не проверял, надеюсь будет работать

Var
  i,min:integer;
  m:array[1..10] of integer;
begin
for i:=1 to 10 do
  begin
  readln(m[i]);
  if i=1 then min:=m[i];
  if m[i]<min then min:=m[i];
  end;
for i:=1 to 10 do
  begin
  if m[i]=0 then m[i]:=min;
  write(m[i],' ');
  end;
end.