паскаль, помогите решить задачу, пожалуйста

[kostyan199731]

Ввести массив A(n). Найти максимум и минимум в массиве. Наибольшим по модулю значением (из максимума и минимума) заменить последний элемент в массиве. Массив вывести на печать. Подпрограммы: ввод массива, поиск максимального, поиск минимального, замена, вывод массива.
Я пробовал переделать, в общем там многое совсем не в тему, помогите доделать, пожалуйста=/

program sem2;
var
  a:array [1..50] of real;
 n,i:integer;
  min1,max1,x:real;

PROCEDURE VVOD(var  n,i:integer);
  begin
  writeln('Введите число n компонент  массива');
  readln(n);
  
  writeln('Введите элементы массивов');
  for i:=1 to n do 
  begin
      begin
        writeln('Введите элемент A[',i,']  массива');
        readln(A[i]);
      end;
  end;
  end;

procedure maximum(var  n,i:integer; min1,max1,x: real);
  begin
    begin
      
      min1:=A[1];
      for i:=1 to n do
        if A[i]>min1 then
          min1:=A[i];
   
    end;
    if max1<max1 then
      x:=min1
    else
      x:=max1;
      writeln(min1,' ', max1,' ', x);
  end;

procedure zamena(var  n,i:integer; x: real);
  begin
  for i:=1 to n do
    begin
    if A[i]<0 then
      A[i]:=x;
    end;
  end;

procedure vivod(var  n,i:integer);
  begin
  Writeln('Полученный  массив:');
    begin 
      for i:=1 to n do    
        write(a[i]:4);
        writeln;      
    end;
 
  end;
BEGIN
vvod(n,i);
maximum(n,i,min1,max1,x);
zamena(n,i,x);
vivod(n,i);
  
END.

[newerow1989]

var a:array [1..50] of real;
    n:integer;
    min1,max1,x:real;

PROCEDURE VVOD(var n:integer);
var i:integer;
begin
 writeln(Введите число n компонент массива');
 readln(n);
 writeln('Введите элементы массивов');
 for i:=1 to n do
 begin
    begin
       writeln('Введите элемент A[',i,'] массива);
       readln(A[i]);
    end;
 end;
end;

procedure maximum(n:integer; var min1,max1,x: real);
var i:integer;
begin
 min1:=A[1];
 max1:=A[1];
 for i:=1 to n do
 begin
    if A[i]<min1 then
       min1:=A[i];
    if A[i]>max1 then
       max1:=A[i];
 end;
 if max1<min1 then
    x:=min1
    else
    x:=max1;
 writeln(min1:4:4,' ', max1:4:4,' ', x:4:4);
end;

procedure zamena(n:integer; x: real);
begin
   A[n]:=x;
end;

procedure vivod(n:integer);
var i:integer;
begin
 Writeln('Полученный массив::');
 for i:=1 to n do
    write(a[i]:4:4,' ');
 writeln;
end;

begin
 vvod(n);
 maximum(n,min1,max1,x);
 zamena(n,x);
 vivod(n);
 Readln;
end.

Сойдет?

[kostyan199731]

препод сказал нужно 2 подрограммы, а не одна=(

[newerow1989]

Какие 2 подпрограммы нужно сделать? Там в 1-м посте - 4