Как создать на диске файловую систему MS DOS?​

1) program partiii; var   n, numparties, i, j, max: integer;   count: array[1..10] of integer;   names: array[1..10] of string; begin   writeln('количество партий: ');   read (numparties);   for i: =1 to numparties do   begin         if names[n]< > '' then         begin             max: =count[i];             n : = i;             for j: =2 to numparties do             begin                 if count[j]> max then                 begin                     max : = count[j];                     n: =j;                 end;             end;             writeln (names[n]);             count[n] : = -1;             names[n] : = '';         end;   end; end; end. 2) алгоритм: вводятся данные в массив inlist. массив просматривается, при совпадении партии увеличивается счетчик. названия партий добавляются в список по мере встречаемости во входном массиве. названия с точкой тоже подсчитываются. дальше считается число действительных голосов, лпределяется процент. если больше 7 - выводится. процент недействительных голосов тоже выводится на общих основаниях. program partiii; const   m=2000; var   n, numparties, i, j: integer;   inlist: array[1..m] of integer;               //входной список   s: string;   n: real;   t: boolean;   names: array[1..10] of string;           //список партий   count: array[1..10] of integer;           //количество голосов begin   numparties : = 1;   names[1] : = inlist[1];   count[1] : = 1;   for i : = 2 to m do   begin         s : = inlist[i];         t : = false;         for j: =1 to numparties do         begin               if s=names[j] then               begin                     t : = true;                     count[j] : = count[j] + 1;               end;         end;         if (t = false) then                                                      //партия встретилась первый раз. добавляем в список         begin               numparties : = numparties +1;               count[numparties] : = 1;               names[numparties] : = inlist[i];         end;   end;   for j: =1 to numparties do  if names[j] < > '.' then n : = n + count[j];   //общее количество голосов без '.'   for j: =1 to numparties do   begin         if names[j] < > '.' then         begin                 n1 : = count[j]/n;                       //% по партии                 if n1 > = 7 then  writeln (names[j]);           end           else           begin                   n1 : = count[j]/n;                   writeln ('недействительных голосов: ', n1, ' %');           end;   end; end; end.