напишите программу, творящую матрицу с рандомными числами. Дальше она должна найти

Var i, j,s,k, max:Integer;

A:array[1..10, 1..10] of Integer ;

Begin

Randomize ;

Max:=0;

For i:=1 to 3 do begin

Writeln;s:=0;

For j:=1 to 3 do begin

A[i,j]:=random(10) ;

Write(' ', A[i,j]);

If A[i, j]gt;s then

s:=A[i, j];end;

If sgt;max then max:=s;

Write(' ', s) ;End;writeln;

For j:=1 to 3 do begin

K:=0;

For i:=1 to 3 do begin

If A[i, j]gt;k then k:=A[i, j];end;

Write(' ', k) ;end;

Write(' ', max) ;

End.