Помогите запустить цикл и завершить прогу в паскале

Question

Program zadacha; 
Uses crt; 
Var x:array[1..3,1..3] of integer; 
I, j, m, n, a, b, g: integer; 
Procedure Maksel (max, f:I nteger; a, b, g:integer); 
Begin 
If x[I, j]>max then begin 
Max:=x[I,j]; 
M:=0; 
N:=0; 
End; 
 
Begin 
Randomize; 
Max:=x[1,1]; 
For i:=1 to 3 do begin 
For j:=1 to 3 do begin 
X[I, j]:=random(10); 
Write(x[I, j], ’ ‘); 
End; 
Writeln; 
End; 
For i:=1 to 3 do begin 
For j:=1 to 3 do begin

Иван · Accepted Answer

Лучше, конечно, функцию тогда написать, если задача ток в этом состоит. Функция писалась ток для твоего случая. 
----------------------------------------------
Function MAX(N: integer): integer; 
var a: integer; 
begin 
result:=X[N,1]; 
for a:=2 to High(X[N]) do if X[N,a]>result then result:=X[N,a]; 
end; 
--------------------------
 MAX(N) - возвращает максимальное значение строки N. 
то есть, если взять в цикле, то можно вывести все максимальные каждой строчки: 
---------
FOR A:=1 TO 3 DO WriteLN(max(A)); 
//вроде вывод Writeln в паскале так пишется