Is it reverted? Because what I see is Object Oriented Pascal with the emphasis on OO.
I would not have written it in that style, but it is correct code and for multiple dialects.
It expertly shows the small differences in the dialects with focus on OOP.
[edit] Well done, Kays. Forgot to examine history.
Ahum,

Sunday morning example in similar style:
program hello;
{$mode objfpc}
type
world = class
class function run:string;static;
end;
class function world.run:string;
begin
Result:=qualifiedclassname;
Result[6]:=',';
end;
begin
writeln(world.run);
end.