Замена максимального элемента массива на противоположный по знаку

program lab6;
uses crt;
var
a:array[1..100]of integer;
max,i,s,n:integer;
begin
clrscr;
repeat
write('kol-vo elementov: ');
readln(n);
    until (n<100) and (n>0)  ;
writeln('vvedite massiv');
for i:=1 to n do readln(a[i]);
max:=a[1];
for  i:=1 to n do
if max<a[i]  then
begin
max:=a[i];
s:=i;
end;
a[s]:=-max;
writeln('max=',max,'  ','a=',a[s]);
for i:=1 to n do readln(a[i]);
readln;
readln;
end.

uses crt;
const nmax=100;
type mas=array [1..nmax] of integer;
var a: mas;
    n,imax: byte;
    
procedure Vvod(var r: byte; var z: mas);
var i: byte;
begin
repeat
write('kol-vo elementov: ');
readln(r);
until r in [1..nmax];
writeln('vvedite massiv');
for i:=1 to r do readln(z[i]);
end;
 
procedure Vyvod (r: byte; z: mas);
var i: byte;
begin
for i:=1 to r do
    write(z[i],' ');
writeln;
end;
 
procedure Zamena(r: byte; var z: mas);
var i,indexmax: byte;
begin
indexmax:=1;
for i:=2 to r do
    if z[i]>z[indexmax] then indexmax:=i;
writeln('Max.element=',z[indexmax],', pod indexom ',indexmax);
z[indexmax]:=-z[indexmax];
end;
 
begin
Vvod(n,a);
clrscr;
writeln('Massiv do zameny');
Vyvod (n,a);
Zamena(n,a);
writeln('Massiv posle zameny');
Vyvod (n,a);
end.

program lab6;
uses crt;
const nmax=100;
type mas=array[1..nmax]of integer;
procedure Vvod(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Размер массива от 1 до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите элементы массива, целые числа');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr
end;
procedure Vyvod(a:mas;n:integer;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to n do
write(a[i],' ');
writeln
end;
function Max(a:mas;n:integer;var mx:integer):integer;
var i,s:integer;
begin
mx:=a[1];
for  i:=1 to n do
if mx<a[i]  then
 begin
  mx:=a[i];
  s:=i;
 end;
Max:=s;
end;
var a:mas;
    n,mx,s:integer;
begin
Vvod(a,n);
Vyvod(a,n,'Исходный массив:');
s:=Max(a,n,mx);
writeln('Максимальный элемент=',mx,' его номер=',s);
a[s]:=-a[s];
Vyvod(a,n,'Измененный массив:');
end.