program Raspred;

{$APPTYPE CONSOLE}

uses
  unit1;
const
  SaveFileName1='ux.prn';
  SaveFileName2='uy.prn';
  SaveFileName3='uz.prn';
{procedure SetInitial;
var
  i, j, k : word;
  uu, t : real;

begin
 for k:=50 to Mk do
  begin
    t:=(k-1)/(Mk-1);
    uu:=1*(1-t)-1*t;
   for i:=1 to Mr do
    for j:=1 to Mz do
      u[i,j,k]:=uu;
  end;

  for k:=1 to 50 do
  begin
     t:=(k-1)/(50-1);
    uu:=0*(1-t)+1*t;
    for i:=1 to Mr do
    for j:=1 to Mz do
      u[i,j,k]:=uu;
  end;

end;{--------------------SetInitial--------------------}

procedure SaveMatrixToFile;

const
  Tab=chr(9);

var
  i, j, k : word;
  f : text;

begin
 assign(f,SaveFileName1);
  rewrite(f);
 for i:=1 to 50  do
  begin
    for j:=1 to 50  do
    begin
      write(f,u[i,j,25]:3);
      if i<50 then write(f,Tab);
    end;
    writeln(f,'');
  end;
close(f);
  assign(f,SaveFileName2);
  rewrite(f);
 for i:=1 to 50  do
  begin
    for k:=1 to 50  do
    begin
      write(f,u[i,25,k]:3);
      if i<50  then write(f,Tab);
    end;
    writeln(f,'');
  end;
close(f);
  assign(f,SaveFileName3);
  rewrite(f);
 for j:=1 to 50  do
  begin
    for k:=1 to 50  do
    begin
      write(f,u[25,j,k]:3);
      if j<50  then write(f,Tab);
    end;
    writeln(f,'');
  end;
close(f);
end;{--------------------SaveMatrixToFile--------------------}

Begin

 SaveMatrixToFile;
 TfmForm1.Button1Click;
End.