program blackjack Type matrix array 100 100 of integer var integer arr

program blackjack;
Type matrix=array [1..100, 1..100] of integer; 
var i, j, n: integer;
	arr: matrix;

procedure setMatrix(n: integer; var arr: matrix);
var i, j: integer;
begin
	for i:=1 to n do
		for j:=1 to n do
			begin
				if i > j then arr[i, j]:=0;
			end;
	writeln('Матрица с нулями под диагональю: ');
	for i:=1 to n do
	begin
		for j:=1 to n do
			write(arr[i, j], ' ');
			writeln;
	end;
end;

begin
writeln('Количество строк вашей матрицы: ');
readln(n);

for i:=1 to n do
	for j:=1 to n do
	begin
		writeln('Заполните элемент матрицы под номером (', i, ', ' , j , ')');
		readln(arr[i,j]);
	end;
		
		
writeln('Исходная матрица: ');
for i:=1 to n do
begin
	for j:=1 to n do
		write(arr[i, j], ' ');

	writeln;
end;

setMatrix(n, arr);

end.