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

vara:array[1..10,1..10] of integer;i, j, j1, max, s: integer;beginfor i:=1 to 10 dofor j:=1 to 10 doreadln(a[i,j]);max := a[1,1];for i:=1 to 10 dofor j:=1 to 10 doif a[i,j]>max thenbeginmax := a[i,j];j1:=j;end;for i:=1 to 10 dobegins:=a[i, 1];a[i, 1] := a[i, j1];a[i, j1] := s;end;end.