[RostVY]

хочу чтобы этот массив записался в файлы F и G. »

Код:

procedure HochuMassivVFajl(mas:array of char; filename:string);
var f: file of char;
i:integer;
begin
   assign(f,filename);
   rewrite(f);
   for i:=1 to length(mas) do
        write(f,mas[i]);
   close(f);
end;

массив описать в программе, а не в процедуре.

типа

Код:

    SimMas : array [1..m] of char;

procedure input_massiv(mas);
var i : byte;
begin
   randomize;
   for i:=1 to length(mas) do
   begin
      mas[i]:=simvolij[random(38)];
   end;
end;

потом вызвать процедуру

Код:

 
input_massiv(SimMas);
HochuMassivVFajl(SimMas, 'F.txt');

потом забить, выйти замуж, нарожать детей и учиться, как варить борщ, вместо Pascal'я.