{ Local i, j inserted, to avoid standard violation (which GPC now detects).
  Frank, 20030417 }

program bench2(output);
    const size = 10;
    var i, j: integer; a: array[1..size,1..size] of char; ch: char;

procedure print;
var i, j: integer;
begin
    for i := 1 to size do begin
        for j := 1 to size do
            write(a[i,j]);
        writeln
    end
end;

begin
    for i := 1 to size do
        for j := 1 to size do
             a[i,j] := chr(ord('a')+2*i+j-2);
    print;
    for i := 1 to size do
        for j := i+1 to size do
             begin ch := a[i,j]; a[i,j] := a[j,i]; a[j,i] := ch end;
    writeln; print
end.
