Заменить первый отрицательный элемент на максимальное значение элемента массива

unit ok;
interface
const x=10;
type matrix=array[1..x] of integer;
procedure vvod(var a:matrix);
procedure vivod(a:matrix);
procedure vich(a:matrix);
implementation
procedure vvod(var a:matrix);
var i,n:integer;
begin
for i:=1 to n do begin
a[i]:=random(20)-10;
end;
end;
procedure vivod(a:matrix);
var i,n:integer;
begin
for i:=1 to n do begin
write(a[i]:3);
end;
end;
procedure vich(a:matrix);
var i,n,max:integer;
begin
for i:=1 to n do       {Nahojdenie i zamena otric. elementa samim starwim elementom}
begin
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
begin
if a[i]<0 then begin a[i]:=max; break;
 end;
 end;
writeln;
writeln('Polychennyi massiv: ');
for i:=1 to n do
write(a[i]:3);    {Vivod polychennogo massiva}
end;
end.

uses crt,ok;
var a:matrix;
n:integer;
begin clrscr;
textbackground(white);
textcolor(black);
randomize;
write('Vvedite razmer massiva: ');
readln(n);
vvod (a);
vivod (a);
vich (a);
readln;
end.

unit ok;
interface
const x=100;
type matrix=array[1..x] of integer;
procedure vvod(var a:matrix;n:byte);
procedure vivod(var a:matrix;n:byte);
procedure vich(var a:matrix;n:byte);
implementation
procedure vvod(var a:matrix;n:byte);
var i:integer;
begin
for i:=1 to n do
a[i]:=random(20)-10;
end;
procedure vivod(var a:matrix;n:byte);
var i:integer;
begin
for i:=1 to n do
write(a[i]:4);
writeln;
writeln;
end;
 
procedure vich(var a:matrix;n:byte);
var i,max:integer;
begin
max:=a[1];
for i:=1 to n do       {Nahojdenie i zamena otric. elementa samim starwim elementom}
if a[i]>max then max:=a[i];
for i:=1 to n do
if a[i]<0 then a[i]:=max;
writeln;
writeln('Polychennyi massiv: ');
vivod(a,n);    {Vivod polychennogo massiva}
end;
end.

uses crt,ok;
var a:matrix;
    n:integer;
begin
textbackground(white);
textcolor(black);
clrscr;
randomize;
write('Vvedite razmer massiva: ');
readln(n);
vvod (a,n);
vivod (a,n);
vich (a,n);
readln;
end.