Помогите пожалуйста! Буду очень благодарен!

Ввести двумерный массив размером 3*5. Поменять местами столбец с максимальным элементом и первый столбец массива.

Спасибо тебе, выручил!

На здоровье:)

vara:array [1..3,1..5] of integer;i,j,max,jmax,t:integer;beginfor i:=1 to 3 dobeginfor j:=1 to 5 doread(a[i,j]);readln;end;writeln;max:=a[1,1];jmax:=1;for i:=1 to 3 dofor j:=1 to 5 doif a[i,j]>max thenbeginmax:=a[i,j];jmax:=j;end;for i:= 1 to 3 dobegint:=a[i,1];a[i,1]:=a[i,jmax];a[i,jmax]:=t;end;for i:=1 to 3 dobeginfor j:=1 to 5 dowrite(a[i,j],' ');writeln;end;end.