test-error-1.pas

program Main;
    var x, y: real;

    procedure Alpha(a : integer);
        var y : integer;
        var a : real;  { ERROR here! }
    begin
        x := a + x + y;
    end;

begin { Main }

end.  { Main }