Задачка №24

Есть ли проблема в этом коде?

procedure DoSomething;
var
S: String;
begin
S := CalculateSomething;
ShowMessage(S);
Halt;
end;

Читать на сайте автора.