program timmax;
const fin='dayso.inp';
      fout='dayso.out';
var A:array[1..10000] of integer;
    i,n:integer;
    f1,f2:text;
procedure Nhap;
          begin
               assign(f1,fin);
               reset(f1);
               readln(f1,n);
               for i:=1 to n do read(f1,A[i]);
               close(f1);
          end;
function max:integer;
         var b:integer;
          begin
               b:=A[1];
               for i:=2 to n do
                 begin
                   if b<A[i] then b:=A[i];
                 end;
               max:=b;
          end;
procedure Xuat;
          begin
               assign(f2,fout);
               rewrite(f2);
               write(f2,max);
               close(f2);
          end;
begin
Nhap;
Xuat;
end.

file inp em có nhập 

6

21 23 12 14 10 4

Nhưng nó hiện ra lỗi

Program d:/timmax/max.exe

exited with 

exit code =2 

Cho em hỏi là lỗi gì v ?