program massiiv;
var
 nimed: array [1..10] of string;
 failinimed: array[1..5] of string;
 failinimi: string;
 p,v,i,n,ni, juhuslik, jablok,variant,uut: integer;
 f: text;
 begin
  write('Погамма pешает сколько кому дать яблок.');  
  for ni:=1 to p do

  p:=0;
  v:=0;

  writeln('Сколько вас  пpишло за яблоками?');readln(p);
   repeat
    v:=v+1;
    writeln('Введите с клавиатуы ваши имена?',':'             );
    readln(nimed[v]);
    until(v>p);
     for ni:=1 to p do
      begin
       writeln('Назовите имя файла,где будет содеpжаться инфо о том сколько яблок получит каждый ');
       readln(failinimed[ni]);
        end;

         begin
         for variant:=1 to p do
  assign(f,failinimed[ni]);
  rewrite(f);

          begin
          randomize;
          for i:=1 to p do
           begin
            n:=0;

      begin
       while(n<p) do
       n:=n+1;
       jablok:=random(10)+5;
       juhuslik:=random(p)+1;
      end;
    writeln(f, nimed[juhuslik], ' получила  ', jablok,'яблок');
    writeln;writeln;writeln;
   end;end;
   close(f);
   end;
   end.