Дан двумерный массив. Определить в каком столбце матрицы находится наименьший…

Program Task; Const N=5; max=25; Var a: Array [1… N, 1… N] of Integer; i, j, ir, jr: Integer; BeginRandomize; For i: =1 To N DoFor j: =1 To N Doa[i, j]: =Random (max*2) — max+1; WriteLn ('Матрица: '); For i: =1 To N DoBeginFor j: =1 To N DoWrite (a[i, j], '); WriteLn; End; a[i, j]: =Random (50) — 25; ir: =1; jr: =1; For i: =1 To N DoFor j: =1 To N DoIf a[i, j] < a[ir, jr] ThenBeginir: =i; jr: =j; End; WriteLn ('Столбец минимального элемента: ', jr); ReadLn; End.