program PascalGuru;
 
var G:array[1..3,1..9] of integer;{переменная двумерного массива}
    F:array[1..9] of integer;{переменная одномерного массива}
    i,j,str:integer; {переменные для цикла + переменная содержащая номер строки с MIN  }
    t:text;  {переменная файла}
{-----------------------------------}
procedure minim(var rez:integer); {процедура находит MIN элемент и номер строки возвращает в переменную "rez"}
var i,min,str:integer;
begin
min:=G[1,1]; str:=1;
for i:=1 to 3 do
for j:=1 to 9 do
 if G[i,j]<min then begin min:=G[i,j]; str:=i; end;
 
rez:=str;
end;  {--- конец процедуры}
{-----------------------------------}
begin
assign(t,'file.txt'); rewrite(t); {открываем файл для записи}
for i:=1 to 3 do
for j:=1 to 9 do G[i,j]:=10+random(80); {РАНДОМНО  записываем эл-ты двум. массива}
 
for i:=1 to 3 do {ниже записываем двум. массив в файл}
    begin
     if i=1 then writeln(t,'G:') else writeln(t);
     for j:=1 to 9 do write (t,G[i,j],' ');
    end;
 
writeln('G:');        {ниже выводим двум. массив на экран}
for i:=1 to 3 do begin writeln;
for j:=1 to 9 do write (G[i,j]:8);  end; writeln;writeln;
 
 
minim(str); {находим индекс строки с минимальным элементом}
 
for j:=1 to 9 do F[j]:=G[str,j]; {эту строку переписываем в массив "F"}
 
writeln(t); writeln(t);
writeln(t,'F:');  {ниже массив "F" записываем в файл}
for j:=1 to 9 do write (t,F[j],' ');
 
 
writeln('F:');   {ниже выводим массив "F" на экран}
for j:=1 to 9 do write (F[j]:8);
 
writeln;
 
readln;
close(t);
end.