помогите пожалуйста переделать программу)срочно нужно)

[Кристя777]

Дана была задача,я ее сделала,сейчас оказалось что условия немного другие,нужно срочно переделать,я не в силах.с этой то около двух недель сидела(((
вот новое задание:
Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если k-я строка матрицы симметрична, и значение 0 в противном случае.
Это та самая программа ,которую нужно переделать под условия новой задачи)

program dv;
uses crt;
var
matr: array [1..20, 1..20] of integer;
n, m, k, i, j, vyh: integer;
simv:char;

procedure spec;
var
i, j, r, t: integer;
begin
for i := 1 to n do
for j:= 1 to m do
begin
t := 0;
for r:=1 to m do
begin
if (r < j) then
if (matr[i, r] < matr[i, j]) then t := t+1;
if (r > j) then
if (matr[i, r] > matr[i, j]) then t:= t+1;
end;
if(t = m - 1) then k:=k+1;
end;
end;

begin
randomize;
k := 0; vyh := 0;
while vyh = 0 do
begin
write('Введите кол-во строк '); readln(n);
write('Введите кол-во столбцов '); readln(m);
if (n <= 1) or (m <= 1) then
writeln('Проверьте правильность ввода ') else vyh:=1;
end;
write('Желаете ли вы заполнить массив вручную? Y/N '); readln(simv);
vyh := 0;
while vyh = 0 do
if (simv = 'Y') or (simv = 'y')
then
begin
for i := 1 to n do
for j := 1 to m do
begin
write('Введите ', j, ' элемент ', i, ' строки ');
readln(matr[i, j]);
end;
spec;
vyh := 1;
end
else
if (simv = 'N') or (simv = 'n')
then
begin
for i := 1 to n do
for j := 1 to m do
begin
matr[i, j] := random(100);
end;
spec;
vyh := 1;
end
else writeln('Проверьте правильность ввода ');
for i:=1 to n do
begin
for j := 1 to m do
write(matr[i, j], ' ');
writeln();
end;
writeln('Кол-во специальных элементов в матрице равно ', k);
end.



помоги пожалуйста,очень прошу!Срочно нужно...надеюсь на Вас..

[Vanta11a]

Сами писали? Докажите.
Что делает процедура

procedure spec;

?

Какие строки определяют, ручным будет ввод или автоматическим?

Какой диапазон значений вводится автоматически?