Vedi se questo programmino va bene:

codice:
program massimo;
uses crt;

type matrice = array[1..100,1..1] of integer;

var n,i:integer;
    m:matrice;

procedure massimo(v:matrice; k:integer);
var max,max1,i:integer;
begin
  max:=v[1,1];
  max:=0;
  for i:=2 to k do
  begin
    if v[i,1] > max then
    begin
      max1:=max;
      max:=v[i,1];
    end
    else
    begin
      if v[i,1] > max1 then
        max1:=v[i,1];
    end;
  end;
  writeln;
  write('L''elemento pi— grande Š: ',max);
  writeln;
  write('Quello successivo Š: ',max1);
end;

begin
  repeat
    clrscr;
    write('Inserisci la cardinalit… del vettore: ');
    readln(n);
  until (n > 1) or (n < 100);
  writeln('Inseriamo gli elementi nel vettore: ');
  for i:=1 to n do
  begin
    write('Inserisci elemento ',i,': ');
    readln(m[i,1]);
  end;
  massimo(m,n);
  readln;
end.
Spero che sia questa la soluzione al tuo problema, facci sapere

Max