Дано число. Удалить 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.