[vladimir01101988]

Добрый вечер.
Подскажите пожалуйста, почему массив не пишется в файл и как умножить i на дробное число (выходит сообщение о несопоставимости integer и extended)

Код:

 var
  Form1: TForm1;
  t: TStream;
  i:integer;
  m: array[1..10] of integer;
  f: textfile;
  n: integer;
  Name_g : array[1..255,1..255] of string;
  j: integer = 0;

 implementation

{$R *.dfm}

begin
  t := TMemoryStream.Create;
     for i:= 1 to 10 do
       m[i]:= (i)*(3);
         begin
          AssignFIle(F,'D:\тест\file.txt');
          Rewrite(f);
          n:=1;
          j:=1;
            while (name_g[n,j]<>'') do begin
              n:=n+1;
              j:=j+1;
              Writeln(f,name_g[n,j],';',name_g[n,j+1]);
            end;
          CloseFile(f);
         end;
  t.Free;
end.