програмирование алгоритмов

[bbk_serg]

Помогите пожалуйста!

Есть 20 елементов масива. Как на место отрецательных елементов поставить ноль? В Делфи.

Заранее спасибо!!!

[r9m]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
arr:array [0..19] of integer;
i:integer;
begin
for i:=0 to 19 do
  begin
    write ('введите элементы массива: ');
    readln(arr[i]);
  end;
for i:=0 to 19 do
  begin
    if arr[i] < 0 then arr[i]:=0;
  end;
writeln ('выходной массив: ');
for i:=0 to 19 do
  begin
    writeln('arr['+inttostr(i)+'] = '+inttostr(arr[i]));
  end;
readln;
end.