t_15_38_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать процедуру, которая переписывает символы из массива в текстовый файл, формируя нем строки по trunc(n/10) символов}
program t_15_38_v1 (input,output);
const n=50;
type m=array[1..n] of char;
var x:M; t: text; i:integer;
procedure line(x:M);
   var i,j:integer;
   begin
       assign(t,'D:\pascal.text\t1.txt');
       j:=0;
       rewrite(t);
       for i:=1 to n do
          begin
              j:=j+1;
              write(t,x[i]);
              if (j mod (trunc(n/10))) = 0 then writeln(t);
          end;
       close(t);
   end;
begin
   for i:=1 to n do
    readln(x[i]);
    line(x);
end.