заполнить двумерный массив NxN случайными числами из интервала [-10;10], найти максимальный элемент в массиве и удалить строку, в которой находится этот элемент

program gulkakh;const n=5;var a:array[1..n,1..n] of integer;    i,j,k,max,stroka:integer;beginwriteln('Исходная матрица:');for i:=1 to n do   for j:=1 to n do    begin     a[i,j]:=random(20)-10;     write(a[i,j],' ');     if j=n then writeln;    end;    stroka:=1;max:=a[1,1];for i:=1 to n dofor j:=1 to n do beginif max<a[i,j] then begin max:=a[i,j]; stroka:=i;end;end;k:=n;for i:=stroka to n-1 dofor j:=1 to n doa[i,j]:=a[i+1,j];k:=k-1;writeln('Без удаленной строки:');for i:=1 to k do  for j:=1 to n do begin  write(a[i,j],' ');  if j=n then writeln; end;end.