Поставь строки в нужном порядке

• var k,x,m : integer;
• BEGIN
• m:=0;
• For k:=1 to 10 do
• begin
• x:=Random\(1000\);
• if x>m then m:=x;
• end;
• writeln\('Ответ =',m\);
• END.