Помогите пожалуйста!!! Решить задачу в Паскале. Это срочно. Заранее спасибо!

Program n1;   var a, x: integer;begina:=random(9999);writeln(a);if agt;999 then x:=a div 1000;if (alt;999) and (agt;99) then x:=a div 100;if (alt;99) and (agt;9) then x:=a div 10;if alt;10 then x:=a;writeln(x);end.