заменить все отрицательные числа массива на единицы (программа есть написаная правильно, но нужно сделать её в виде подпрограммы)

[программирование]

добрый вечер, всем участникам форума.
помогите, пожалуста, дописать программу (а именно, нужно сделать программу в виде подпрограммы(процедуры или функции).Pascal ABC


написать подпрограмму замены всех отрицательных чисел массива на единицы.

вот программа

uses crt;
const
  L=25;
var
  mas:array[1..L] of integer;
  i:byte;
begin
 writeln('vvedite elementu massiva');
 for i:=1 to L do
  readln(mas[i]);
 writeln('Vash massiv');
 for i:=1 to L do
  write(mas[i],' ');
 writeln();
 writeln('Novui massiv');
 for i:=1 to L do
  begin
  if mas[i]<0 then
  mas[i]:=1;
  write(mas[i],' ');
  end;
 readln;
end.

программа абсолютно правильная, но нужно сделать её в виде подпрограммы.

заранее, огромное спасибо.

[Stilet]

uses crt;
procedure a;
const
  L=25;
var
  mas:array[1..L] of integer;
  i:byte;
begin
 writeln('vvedite elementu massiva');
 for i:=1 to L do
  readln(mas[i]);
 writeln('Vash massiv');
 for i:=1 to L do
  write(mas[i],' ');
 writeln();
 writeln('Novui massiv');
 for i:=1 to L do
  begin
  if mas[i]<0 then
  mas[i]:=1;
  write(mas[i],' ');
  end;
 readln;
end; begin a; end.