nuj ce am de scriu as a da altfel ma incurc, culmea:)

Cod:

program p1;   
type t=1..18;   
var f1,f2:text;   
    n,k,i,j:t;   
    a:array[1..18] of t;   
    ok:boolean;   
    begin  
    assign(f1,'combinari.in');   
    reset(f1);   
    readln(f1,n,k);   
    close(f1);   
    for i:=1 to k do  
    a[i]:=i;   
    assign(f2,'combinari.out');   
    rewrite(f2);   
    if n=k then  
    begin  
    for i:=1 to n do  
    write(f2,a[i],' ');   
    end  
    else  
    begin  
    repeat  
    ok:=true;   
    for i:=1 to k do  
    write(f2,a[i],' ');   
    writeln(f2);   
    inc(a[k]);   
    if a[k]=n+1 then  
    for i:=k downto 2 do begin  
    if a[i]>=n-k+i+1 then  
    begin  
    inc(a[i-1]);   
    for j:=i to k do  
    a[j]:=a[j-1]+1;   
    end;   
    end;   
    if a[1]=n-k+1 then  
    ok:=false;   
    until ok=false;   
    for i:=1 to k do  
    write(f2,a[i],' ');   
    end;   
    close(f2);   
    end.  

ce parere aveti de acesta?imi cer scuze pt modul zapacit si ,,nefinisat" in care e facut dar asa e dupa o pauza mare

daca acesti v-au speriat ce spuneti de un supraveghetor care a fumat in sala.Acelasi specimen venise sa ,,repare" un borland C toti cei care s-au perindat prin sala si au facut o galagie au stat jumatate de ora pe putin sa isi dea seama sa mute saracu copil si dupa vre-o inca cateva minute sa constate ca era eroare de programare pe care supraveghetoru respectiv i-a corectat-o...la acestea sa adauga injuraturile  de genu ,,la draq" zgomotul infernal de la tastatura k ziceai k e maisna de scris la cum batea...apoi la fina net explica cu un accent englezo-rus k trebue sa dam charge dir parca de parca la locala nu ai facut asta...Acest profesor este din prahova si cred k preda in spiru haret