In fcl-passr, PasWriter.WriteProcDecl raises exception when a procedure has a with statement inside
PasWriter.WriteProcDecl rases exception when a procedure has a with statement inside.
For example:
```
procedure Proc;
var
P : TPoint;
begin
with P do
begin
X:=3;
Y:=5;
end;
end;
```
The parser raises an exception with following message:
_"EPasWriter: Writing not yet implemented for TPasImplWithDo implementation elements"_
This because (I presume) PasWriter.WriteImplWhileDo is not yet implemented.
See attached archive to reproduce.
[test.zip](/uploads/0a26fc1eb2611fe953a7d47ae88a34f3/test.zip)
issue