Як записати повне имя файлу реферат, який міститься в папці , розміщенній у папці 10-б, що на диску с?

Повне имя файлу: c: \10-

Program zadanie; var a,b,c: real;       n: integer; begin   writeln('введите количество учеников');   readln(n);   writeln('введите количество пятёрок в классе');   readln(a);   a: =n/100*a;   writeln('введите количество четвёрок в классе');   readln(b);   b: =n/100*b;   writeln('введите количество троек в классе');   readln(c);   c: =n/100*c;   writeln('процент пятёрок  в классе: ',a);   writeln('процент четвёрок в классе: ',b);   writeln('процент троек в классе: ',c); end.

1. var   a: array[0..7,0..13] of integer;   b: array[0..255] of integer;   i,j,k: byte;   s: integer;   sr: real; begin   randomize;   s: =0;   k: =0;   for i: =0 to 7 do   begin     for j: =0 to 13 do     begin       a[i,j]: =random(20);       write(a[i,j]: 4);       if a[i,j] mod 2< > 0         then         begin           s: =s+a[i,j];           k: =k+1;         end;     end;     writeln;   end;   sr: =s/k;   k: =0;   writeln;   for i: =0 to 7 do     for j: =0 to 13 do     if (a[i,j] mod 2=0) and (a[i,j]> sr)       then       begin         k: =k+1;         b[k]: =a[i,j];         write(b[k]: 4);       end; end.2.  var  a: array[0..9,0..9] of integer;   b: array[0..255,0..1] of integer;   i,j,k: byte;   s,ss,min: integer;   flag: boolean; begin  randomize;   s: =0;   k: =0;   for i: =0 to 9 do  begin    for j: =0 to 9 do    begin      a[i,j]: =random(20);       write(a[i,j]: 4);       b[i,0]: =a[i,j]+b[i,0];       b[i,1]: =i;     end;     writeln;   end;   writeln;   flag: =false;   min: =10*20+1;   for i: =0 to 9 do    begin    for j: =i to 9 do      if min> b[j,0]      then        begin        min: =b[j,0];         k: =j;         flag: =true;         end;     if flag      then      begin      s: =b[i,0]; //замена      ss: =b[i,1];       b[i,0]: =b[k,0];       b[i,1]: =b[k,1];       b[k,0]: =s;       b[k,1]: =ss;       flag: =false;       min: =10*20+1;       end;     end;   for i: =0 to 9 do    begin    writeln;     for j: =0 to 9 do      write(a[b[i,1],j]: 4);     end; end.