ВВести исходный массив из текстового файла

uses crt;
var f1,f2:text;{2 файла}
    F,G:array[1..4,1..6]of integer;{2 массива}
    i,j,imn,k:byte;
    mn,p:integer;
begin
clrscr;
assign(f1,'file.txt');
reset(f1);
assign(f2,'file1.txt');
rewrite(f2);
writeln('Исходный массив:');
writeln(f2,'Ishodnyj massiv:');{запишем заголовок в новый файл, русские символы исказятся, их надо ковертировать}
for i:=1 to 4 do
 begin
  for j:=1 to 6 do
   begin
    read(f1,F[i,j]);{читаем числа}
    write(F[i,j]:4);{выводим на экран}
    write(f2,F[i,j]:4);{выводим в новый файл}
   end;
  writeln;
  writeln(f2,'');{на новую строку}
 end;
for j:=1 to 5 do{идем по столбцам}
if odd(j)then{если столбец нечетный}
 begin
  mn:=F[1,j];imn:=1;k:=j div 2+1;
{принимаем мин-первый в столбце, индекс=1, номер нечетного по порядку 1=1, 3=2, 5=3}
  for i:=1 to 4 do
  if F[i,j]<mn then
    begin
     mn:=F[i,j];
     imn:=i;
    end;
  G[1,k]:=imn;{пишем номер строки}
  G[2,k]:=j;{номер столбца}
  G[3,k]:=mn;{значение мин}
 end;
writeln('Массив минимальных элементов:');
p:=1;
for i:=1 to 3 do
 begin
  for j:=1 to 3 do
   begin
    write(G[i,j]:4);{выводим массив на экран}
    if G[i,j]<0 then p:=p*G[i,j];{и считаем произведение отрицательных}
   end;
  writeln;
 end;
write('Произведение отрицательных=',p);
close(f1);
close(f2);
readln
end.