В матрице определить максимальные элементы в каждой строке и образовать массив, состоящий из номеров столбцов (на Паскаль)

[Ольга 67]

В матрице определить максимальные элементы в каждой строке и образовать массив, состоящий из номеров столбцов, в которых они находятся. В этих столбцах каждый элемент удвоить.(паскаль)
вот что я писала

program z8;
var
g:array[1..3,1..3] of integer;
a:array[1..3] of integer;
gmax1,gmax2,gmax3,a1,a2,a3: integer;
i,j,k:byte;
f:text;
begin
assign(f,'G:\матрица.txt');
reset(f);
for i:=1 to 3 do
for j:=1 to 3 do
read(f,g[i,j]);
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(g[i,j]:4);
writeln;
end;
writeln;
close(f);
 for i:=1 to 3 do
for j:=1 to 3 do g[1,1]:=gmax1;
begin
if gmax1<g[1,j] then gmax1:=g[1,j];
a[1]:=j*2;
writeln('максимальный элемент в 1й строке:','gmax1=',gmax1,'  ','a[1]=',a[1]:4);
end;
for i:=1 to 3 do
for j:=2 to 3 do
g[2,1]:=gmax2;
begin
if gmax2<g[2,j] then gmax2:=g[2,j];
a[2]:=j*2;
writeln('максимальный элемент в 2й строке:','gmax2=',gmax2,'  ','a[2]=',a[2]:4);
end;
for j:=2 to 3 do g[3,1]:=gmax3;
begin
if gmax3<g[3,j] then gmax3:=g[3,j];
a[3]:=j*2;
writeln('максимальный элемент в 3й строке:','gmax3=',gmax3,'  ','a[3]=',a[3]:4);
end;
for k:=1 to 3 do
write('a[',k,']=',a[k]:2,'  ');
end.

но здесь за max берется 3й элемент в каждой строке. помогите исправить ошибку



___________
1) Название темы не соответствует правилам форума

Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.