fork download

copy

program ideone;
var
 f,g:textfile;
 a:array[1..1000] of integer;
 b:array[1..1000,1..1000] of integer;
 i,j,n,m,lim,k,z:integer;
begin
	assignfile(f);
	assignfile(g);
	reset(f);
    rewrite(g);
 
    read(f,n);
    read(f,lim);
    readln(m);
 
    for i:=1 to n do
     read(a[i]);
 
    for i:=1 to n do
     for j:=1 to m do
      read(b[i,j]);
     k:=lim; z:=0; 
     for i:=1 to n do
      begin
       k:=lim;
        for j:=1 to m do
         begin
          if k=0 then
           break;
          if a[b[i,j]]<>0 then
           begin
            a[b[i,j]]:=a[b[i,j]]-1;
            z:=z+1;
            k:=k-1;
           end;
         end;
     write(g,z);
 
 
 
 
    closefile(f);
    closefile(g);
end.

prog.pas(8,12) Error: Identifier not found "assignfile"
prog.pas(9,12) Error: Identifier not found "assignfile"
prog.pas(43,14) Error: Identifier not found "closefile"
prog.pas(44,14) Error: Identifier not found "closefile"
prog.pas(45,4) Fatal: Syntax error, ";" expected but "." 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