Переделать код программы (убрать подпрограмму)

const nmax=100;
type mas=array[1..nmax] of integer;
procedure max(a:mas;n:integer;var mx:integer);
var i,k:integer;
begin
k:=0;
for i:=1 to n do
if a[i]<0 then 
if k=0 then
 begin
  k:=1;   mx:=a[i]
 end
else if a[i]>mx then mx:=a[i];
if k=0 then write('Нет отрицательных элементов')
else write('Максимальный отрицательный=',mx);
end;
var x:mas;
    n,i,mx:integer;
begin
randomize;
repeat
write('Размер массива X от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
{создаем массив целых чисел от -99 до 89}
writeln('Массив X');
for i:=1 to n do
 begin
  x[i]:=-90+random(180); 
  write(x[i]:4)
 end;
writeln;
max(x,n,mx); 
readln
end.

const nmax=100;
var x:array[1..nmax] of integer;
    n,i,k,mx:integer;
begin
randomize;
repeat
write('Размер массива X от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
{создаем массив целых чисел от -99 до 89}
writeln('Массив X');
for i:=1 to n do
 begin
  x[i]:=-90+random(180);
  write(x[i]:4)
 end;
writeln;
k:=0;
for i:=1 to n do
if x[i]<0 then
if k=0 then
 begin
  k:=1;
  mx:=x[i]
 end
else if x[i]>mx then mx:=x[i];
if k=0 then write('Нет отрицательных элементов')
else write('Максимальный отрицательный=',mx);
readln
end.