Массивы(практикум)

### Запустить редактор TURBO PASCAL. Открыть программу MASSIV. Проанализировать работу программы, запустив на выполнение.
program massiv;
uses crt;
var
a:array[1..30,1..30] of integer;
i,j,n,k,m,max,at:integer;
begin
clrscr;
writeln ('Введите размерность матрицы');
readln(n);
writeln('Введите номр строки');
readln(m);
for i:=1 to n do
for j:=1 to n do
begin
write ('Введите элемент массива','[',i,j,']=');
readln(a[i,j]);
end;
writeln ('Ваша матрица');
for i:=1 to n do
begin
for j:=1 to n do
writeln(a[i,j]:4);
writeln
end;
max:=1;
for i:=1 to n do
if a[max,max] for i:=1 to n do
begin
at:=a[m,i];
a[m,i]:=a[max,i];
a[max,i]:=at;
end;
writeln ('Полученная матрица');
for i:=1 to n do
begin
for j:=1 to n do
write (a[i,j]:4);
writeln
end;
readln;
end.