Заполнить двумерый массив NxN числами от 0 до T так, чтобы сумма его элементов была равна K

program mas;
const n = 5;
var a : array [1..n,1..n] of integer;
    i , j : byte;
    k , b, c, s, x : integer;
    
Begin
Randomize;
Writeln('Ââåäèòå ÷èñëî k íå ìåíüøå ', n);
Readln(k);
 
if ( ( k div n ) < n ) then c := k
else c := k div n;
x := k mod n;
 
 
For j := 1 to n-1 do begin
    b := c;
    for i := 1 to n-1 do begin
        a[i,j] := random(b);
        b := b - a[i,j];
        end;
        a[n,j] := b;
        end;
        
b := c + x;
for i := 1 to n-1 do  begin
    a[i,n] := random(b);
    b := b - a[i,n];
end;
a[n,n] := b;
 
 
        
For i := 1 to n do begin
    writeln;
    for j := 1 to n do
        write(a[i,j],' ');
    end;
    writeln;
 
s := 0;
For i := 1 to n do
    for j := 1 to n do
        s := s + a[i,j];
        
writeln('Ïðîâåðêà. Ñóììà ýëåìåíòîâ ðàâíà ',s);
writeln;
 
end.