Из массива удалить элементы кратные трем,стоящие между максимальными и минимальными элементами

[natatimina]

Пример: из массива A [7]: 1934900
должен получиться A[5]: 19400

ВАЖНО! необходимо построить 2 программы (одну с параметрами, а другую без)!!
программа должна состоять из функций и процедур
Ребята помогите профану

[ZX Spectrum-128]

1. http://programmersforum.ru/showthread.php?t=70310
Найти макс (мин) элемент.
И язык укажите.

const
  n=7;
Var
  Matrix : Array[1..n] of integer = (1,9,3,4,9,0,0);
  nmax,nmin,max,min : Integer;
  i,temp : Integer;
Begin
  For i:=1 to n do
    Write(Matrix[i],' ');
  max := Matrix[1];
  nmax:=1;
  min := Matrix[1];
  nmin:=1;
  For i:=2 to n do
  begin
    if Matrix[i] > max Then
      begin
        max := Matrix[i];
        nmax:=i;
      end;
    if Matrix[i] < min Then
      begin
        min := Matrix[i];
        nmin:=i;
      end;
  end;
  writeln;
  Writeln('Mаксимум = ', max,', позиция максимума = ',nmax);
  Writeln('Mинимум = ',min ,', позиция минимума = ',nmin);
  if nmin>nmax then
    begin
      temp:=nmax;
      nmax:=nmin;
      nmin:=temp;
    end;
  for i:=nmin+1 to nmax-1 do
    if matrix[i] mod 3=0 then
      begin
        Writeln('Число кратное 3 = ', matrix[i],', на позиции = ',i);
        // здесь вы вставляете код удаления этого элемента
      end;
  ReadLn;
end.