Pascal/Turbo Pascal - Indicar si dos vectores son iguales

Uses CRT;

Const

  TOPE = 100;

Type

  TipoVector = Array [1..TOPE] OF INTEGER;

VAR

  v1,v2:tipoVector;

  igual:boolean;

  i:integer;

BEGIN

   clrscr;

   igual:=true;

   for I:=1 to tope do

     if v1[i]<>v2[i] then

          begin

            igual:=false;

            break;

          end;

  if igual=true then

    writeln('Ambos vectores son iguales')

  else

    writeln('Son diferentes');

  readln;

END.

uses crt;

    const

     TOPE = 3;

    type

       TipoVector = Array [1..TOPE] OF INTEGER;

  function soniguales(a,b : tipoVector ; nu :integer ): boolean ;

   var

       y      : integer ;

       igual  : boolean ;

    begin

     igual := true ;

     for y := 1 to nu do

     begin

       if (a[y] <> b[y]) then

       begin

         igual :=  false ;

       end;

       soniguales := igual ;

     end;

   end;

    var

      v1 , v2  : tipoVector ;

          i    : integer    ;

          car  : char       ;

   BEGIN

   clrscr;

 (** Cargar el primer vector *****)

  for I:=1 to tope do

  begin

   writeln('Lea los numeros del primer Vector N§ ',i );

   read(v1[i]);

  end;

       writeln;

       writeln;

(***********)

   for I:=1 to tope do

  begin

   writeln('Lea los numeros del segundo Vector N§',i );

   read(v2[i]);

  end;

   writeln;

   writeln;

   writeln('El primer Vector:');

  for I:=1 to tope do

  begin

    write(v1[i]:5);

  end;

   writeln;

   writeln;

   writeln('El segundo Vector:');

  for I:=1 to tope do

  begin

    write(v2[i]:5);

  end;

    writeln;

    writeln;

    if (soniguales(v1,v2, TOPE))   then

    begin

      write('los dos vectores son iguales')

    end

    else

    begin

      write('los dos vectores no son iguales')

    end;

          car := readKey  ;

 END.