Các bác làm dài wa', cách của em ngắn gấp bội lè mà vẵn đúng:
procedure Gen_Spiral(var A: matrix; m, n: integer);
var x, y, seed, count, direct, total: integer;
begin
direct := 4;
total :=...