Составить кроссворд на тему: компьютер

program z1;
var
C: array [1..15, 1..15] of integer;
k, b, n, minpd: integer;
i, j: byte;
begin
writeln('Введите размер матрицы NxN');
readln(n);
if (n <= 15) then begin
for i := 1 to N do
for j := 1 to N do C[i, j] := random(500) - 100;
writeln('Матрица: ');
for i := 1 to N do
begin
for j := 1 to N do write(C[i, j]:4);
writeln;
end;
writeln;
minpd := C[1, N];
for i := n downto 1 do
for j := n - i + 1 to n do
if C[i, j] < minpd then begin
minpd := C[i, j];
k := i;
b := j;
end;
writeln('Наименьший элемент = ', minpd);
writeln('Индексы - ', k, ' ', b);
readln;
end;
end.