replace single line comments // with multiline comments /*

txt

Search pattern: (.*)(//)(.*)(\n)

Replace with: $1/\*$3 \*/$4

replace Write and WriteLn with padding to format()

Replace this

WriteLn(outSummary, '   ', i9: 4, '     ', aVals[0, 1]: 7: 3, '     ', format('%7.3f', [bVals[i9]]));

To this

WriteLn(outSummary, '   ', i9: 4, '     ', format('%7.3f', [aVals[0, 1]]), '     ', format('%7.3f', [bVals[i9]]));

Use this regexp and replacement:

(\s*Write)(Ln)?(\()(.*)(, ?)(.*\[.*\])(: ?)(\d\d?)( ?)(: ?)(\d\d?)(.*\).*\n)
$1$2$3$4$5format('%$8.$11f', [$6])$12

Replace this

Write(scratch, examineeNum: 4, theta: 10: 4, mlSem: 10: 4, adaptiveItemNo: 9, finTheta: 13: 4, finSem: 10: 4, delta: 10: 4, format('%10.4f', [semDiff]));

To this

Write(scratch, examineeNum: 4, format('%10.4f', [theta]), format('%10.4f', [mlSem]), adaptiveItemNo: 9, format('%13.4f', [finTheta]), format('%10.4f', [finSem]), format('%10.4f', [delta]), format('%10.4f', [semDiff]));

Use this regexp and replacement:

(\s*Write)(Ln)?(\()(.*)(, ?)(.*)(: ?)(\d\d?)( ?)(: ?)(\d\d?)(.*\).*\n)
$1$2$3$4$5format('%$8.$11f', [$6])$12

Here is a problem:

  WriteLn(outSummary, i6 : 5, '    ', count[i6] : 5, '  ', cumFreq : 5, '      ', format('%7.3f', [pct ]), '   ', format('%9.3f', [cumPct ]));

Incorrectly replaced to:

  WriteLn(outSummary, i6 : 5, '    ', format('%5.0f', [count[i6] : 5, '  ', cumFreq ]), '      ', format('%7.3f', [pct ]), '   ', format('%9.3f', [cumPct ]));

Fix it manually, I don't know how to avoid this.

Replace this

 WriteLn(outSummary, i6 : 5, '    ', count[i6] : 5, '  ', cumFreq : 5, '      ', format('%7.3f', [pct ]), '   ', format('%9.3f', [cumPct ]));

To this

 WriteLn(outSummary, i6 : 5, '    ', count[i6] : 5, '  ', format('%5.0f', [cumFreq ]), '      ', format('%7.3f', [pct ]), '   ', format('%9.3f', [cumPct ]));

Use this regexp and replacement:

(\s*Write)(Ln)?(\()(.*)(, ?)(.*)(: ?)(\d\d?)( ?)(.*\).*\n)
$1$2$3$4$5format('%$8.0f', [$6])$10