Создать файл f, компонентами которого являются символьные массивы

const m=15;
type mas=array[1..m] of char;
var n,i,j,k,p:integer;
    f:file of mas;
    x:mas;
    c:char;
begin
randomize;
assign(f,'massiv');
rewrite(f);
write('Сколько массивов записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to m do
  x[j]:=chr(40+random(5));//символы ( ) * + ,
  write(f,x);
 end;
writeln('Исходный файл');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,x);
  for j:=1 to m do
  write(x[j]:2);
  writeln;
  k:=0;
  for j:=m downto 1 do
  if x[j]='*' then
   begin
    k:=k+1;
    c:=x[j];
    for p:=j to m-k do
    x[p]:=x[p+1];
    x[m-k+1]:=c;
   end;
  seek(f,i);
  write(f,x);
 end;
writeln;
writeln('Измененный файл');
reset(f);
while not eof(f) do
 begin
  read(f,x);
  for j:=1 to m do
  write(x[j]:2);
  writeln;
 end;
close(f);
end.