Ma tot chinui la problema asta, imi spuneti si mie va rog ce nu e bine in abordarea asta: La toate testele iau raspuns gresit

Cod:

   1. program pascal;  
   2. var f,g:text;    t:array[1..50000] of byte; x,p:array[1..1000] of longint;  
   3.                  max,i,k,j,n,aux,c:longint;  
   4.   procedure citire;  
   5.   begin  
   6.   assign(f,'economie.in'); reset(f);  
   7.   assign(g,'economie.out'); rewrite(g);  
   8.   readln(f,n);  
   9.   
  10.   for i:=1 to n do readln(f,x[i]);  
  11.   max:=50000;  
  12.   for i:=1 to max do t[i]:=1;  
  13.   close(f);  
  14.   end;  
  15.   
  16.   procedure sort(s,d:longint);  
  17.   var a,b,aux,ia:longint;  
  18.   begin  
  19.     a:=s; b:=d;  
  20.     repeat  
  21.     while x[a]<x[b] do b:=b-1;  
  22.     aux:=x[a]; x[a]:=x[b]; x[b]:=aux; ia:=1; a:=a+1;  
  23.     if a<b then  
  24.             begin  
  25.             while x[a]<x[b] do a:=a+1;  
  26.             if a<>b then  
  27.              begin  
  28.              aux:=x[a]; x[a]:=x[b]; x[b]:=aux; ia:=0; b:=b-1;  
  29.              end;  
  30.             end;  
  31.     until b<=a;  
  32.     if a-ia>s then sort(s,a-ia);  
  33.     if a-ia+1<d then sort(a-ia+1,d);  
  34.   end;  
  35.   
  36.   procedure sorte;  
  37.   begin  
  38.   k:=0;  
  39.   for j:=1 to n do  
  40.     begin  
  41.     if  t[x[j]]=1 then  
  42.        begin  
  43.        k:=k+1; p[k]:=x[j]; t[x[j]]:=0;  
  44.        end;  
  45.     for i:=1 to max do  
  46.     if t[i]=0 then  
  47.              begin  
  48.              c:=i+x[j];  
  49.              if (c<=max) then t[c]:=0;  
  50.              end;  
  51.      end;  
  52.   end;  
  53.   
  54.   procedure afisare;  
  55.   begin  
  56.   writeln(g,k);  
  57.   for i:=1 to k do writeln(g,p[i]);  
  58.   close(g);  
  59.   end;  
  60.   
  61. begin  
  62. citire;  
  63. sort(1,n);  
  64. sorte;  
  65. afisare;  
  66. end.  

Imi cer scuze pentru cod  dar chiar nu stiu ce sa mai fac sa iau si eu 100. Va rog sa-l stergeti daca e neregulamentara  expunerea lui.   

multumesc mult cezar! foarte repede ai raspuns! am luat in sfarsit 100   iti multumesc tare mult!

Buna! Va rog sa ma ajutati si pe mine! Lucrez la problema asta de ceva vreme. Am facut un cod simplu dar nu imi dau seama de ce primesc 4 TLE pe ultimele teste cand practic eu fac doar un for pana la n*n. Lucrez in pascal. Iata codul:

         

Cod:

# program pascal;  
#   var f,g:text; n,x,nr,s,nr2,dif,p,sl:int64; j,i:longint;  
#   begin  
#   assign(f,'numere5.in'); reset(f);  
#   assign(g,'numere5.out'); rewrite(g);  
#   readln(f,n);  
#   sl:=0;  nr:=0;  
#   for i:=1 to n*n do  
#            begin  
#            read(f,x);  
#            if x=0 then nr:=nr+1;  
#            sl:=sl+x;  
#            end;  
# n:=n*n;  
# s:=(n*(n+1)) div 2;  
# dif:=s-sl;  
# nr2:=nr-1;  
# p:=nr2*(nr2+1) div 2;  
# dif:=dif-p;  
# i:=dif div nr;  
# j:=i+nr2;  
# write(g,i,' ',j);  
# close(f);  
# close(g);  
# end.  

HELP ME, PLEASE!!!! 

nu inteleg cum poate returna 0, daca nu folosesc nici o functie, iar programul cand il compilez e ok, da rezultatul bun. (lucrez in pascal, iar aici nu am return 0)

[Ajutati-ma va rog!!!!!!]

Eu nu inteleg ce se intampla la problema asta, sursa mea este compilata in pascal, am dat si exemplele de pe topic toate merg, dar cand o incarc imi apare "Non zero exit-status"   am verificat sa nu-mi iasa din vector, dar mi se pare in regula.    Ajutati-ma va rog!!!!!!        sursa are codul #304725