procedure hallo(x: Integer); // hier ein Strichpunkt, warum auch immer
begin
...
end;