В одномерном массиве определить два элемента с наибольшими значениями

var
a:array[1..100]of integer;
c1,c2,n,i,max1,max2,nmax1,nmax2:integer;
begin
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(50);
for i:=1 to n do
write(a[i],' ');
writeln;
max1:=a[1];
max2:=a[2];
nmax1:=1;
nmax2:=2;
if max1<max2 then begin
c1:=max1;
max1:=max2;
max2:=c1;
c2:=nmax1;
nmax1:=nmax2;
nmax2:=c2;
end;
for i:=3 to n do
begin
if a[i]>=max1 then begin
max2:=max1;
nmax2:=nmax1;
max1:=a[i];
nmax1:=i;
end;
if (a[i]>max2)and(a[i]<max1)then begin
max2:=a[i];
nmax2:=i;
end;
end;
if nmax1<nmax2 then
begin
for i:=nmax1+1 to nmax2-1 do
  a[i]:=0;
end
else
begin
for i:=nmax2+1 to nmax1-1 do
  a[i]:=0;
end;
writeln;
writeln(max1,' ',max2);
for i:=1 to n do
write(a[i],' ');
readln;
end.

const N=10;
var Mas: array [1..N] of integer;
    n_max, n_max2, i, start, finish: integer;
begin
  n_max:=1;
 
  for i:=1 to N do
   begin
    write('Enter ',i,' element:');
    readln(Mas[i]);
     if Mas[i]>Mas[n_max] then
      n_max:=i;
   end;
 
   n_max2:=1;
 
   if n_max=1 then
    n_max2:=2;
 
   for i:=1 to N do
    if (Mas[i]>Mas[n_max2]) and (i<>n_max)then
      n_max2:=i;
 
    if n_max>n_max2 then
     begin
       start:=n_max2;
       finish:=n_max;
     end
    else
     begin
       start:=n_max;
       finish:=n_max2;
     end;
 
     for i:= start+1 to finish-1 do
      Mas[i]:=0;
 
     for i:=1 to N do
      write(Mas[i],' ');
readln;
end.