Tootoot222

program Standards;

var
  SomeVar, SomeOtherVar: Integer;
  SomeVarOfAnotherType: String;

const
  ThisIsSpacedProperly = 'wat';

procedure SomeProcedure(var Param1, Param2: Integer; Param3: String);
var
  SomeLocalVar: Integer;
  SomeOtherLocalVar: String;
begin
  DoSomething(Param1, Param2);
  DoNothing();
  SomeVar:= SomeVar + 1;
  SomeLocalVar:= SomeVar * 2;
end;

function SomeFunction(Param1, Param2: Integer): Boolean;
begin
  if(Param1 = Param2) then
    Result:= True
  else
    Result:= False;
end;

var
  I: Integer;

begin
  while(SomeFunction(SomeVar, SomeOtherVar)) do
  begin
    SomeProcedure(SomeVar, SomeOtherVar, 'wat');
    for I:= 0 to 10 do
      Wait(100);
  end;
end;