fork download

copy

program test;
 
const M = 10; N = 10;
 
type Item = Integer;
 
var
  x : array [1..M, 1..N] of Item;
  y : array [1..M] of Item;
  i, j : Integer;
  v : Item;
 
begin
  for i := 1 to M do begin
    for j := 1 to N do begin
      v := i*N + j;
      x[i, j] := v;
      Write(v:3, ' ');
    end;
    WriteLn;
  end;
 
  WriteLn;
  y := x[,1];
  for i := 1 to M do
    Write(y[i]:3, ' ');
  WriteLn;
end.

prog.pas(24,10) Error: Illegal expression
prog.pas(24,11) Fatal: Syntax error, "]" expected but "ordinal const" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty