Дано число. удалить 3 цифру числа с начала

Var i,j,n,m,sum:integer;d:array[1..20] of integer;beginn:= 3451111;repeat i:= i + 1;d[i]:= n mod 10;n:= n div 10;until n = 0;writeln(d,i:3);
for j:=i-2 to i do begind[j]:= d[j+1];end;writeln(d,i:3);for j:=i-1 downto 1 dowrite(d[j]);end.