SoloCodigo

hola nesesito hacer para la facultad un algoritmo que rellene un vector A de 40 elementos con numeros consecutivos a partir de un numero M ingresado por teclado y luego mostrar cada posicion del vector con su valor y me da un error en la compilacion pero no entiendo cual es. si alguien encuentra el error le agradeceria que me lo diga.
esto fue lo que hice.





program vector;

uses wincrt;

var
   vector_a:array[1..40] of integer;
   m:integer;
   i:integer;
begin
     clrscr;
     writeln ('ingrese el valor: ');
     readln(m);
     i:=1;
     vector_a[1]:=m;
     for i:= 2 to 40 do    
     m:=m+1;
     vector_a:=m;
     end
     for i:=1 to 40 do                                                     {es en esta linea donde me da el error}
     writeln('la posicion es: ' i ' el valor es: ' vector );
     end
end.