Pascal/Turbo Pascal - editar arreglo

Program Array01;

var

    datos: array[1..5] of integer;

    i: integer;

	j:integer;

	m:integer;

	o:integer;

begin

    for i := 1 to 5 do

    begin

        write('Deme el dato ',i,': ');

        readLn(datos[i]);

    end;

    write ('Ingrese posicion del dato que necesita modificar')

    readln(j);

	if(j> 5) then

	  write ('Ingrese posicion del dato que necesita modificar')

      readln(j);

	  write ('Ingrese el valor que quiere cambiar')

	  readlon(o);

	else

	  m:=0;

	  while(m <j) do

	      m:= m +1;

	  datos[m]:=o;

     write('El nuevo array quedaria asi');

      for i := 1 to 5 do

        write(datos[i], ' ');

end.