матрица и метод вставки

[xamelion]

Помогите пожалуйста написать две программы на Turbo Pascal:
1. Для заданной матрицы размером 8 на 8 найти такие k, что k-я строка матрицы совпадвет с k-м столбцом. Найти сумму элементов в тех строках, которые вмещают хотя бы один отрицательный элемент.
2. Ввести с клавиатуры предложение. Сделать вставку запятой после слов заканчивающихся на "й". Вывести на экран кол-во таких вставок.

[Лубышев]

вторая задача

var string s;{строчка с текстом}
count:integer;{счетчик вставок}
i:integer;{счетчик итераций}
begin
 readln(s);{ввод строки с клавы}
 count:=0;{изначальная инициализация счетчика вставок}
 for i:=0 to length(s)-1 do {пробегаем в цикле по строке}
 begin
  if (copy(s,i,1)='й') and (copy(s,i+1,1)=' ') then {если наткнулись на "й" а следующий " ", вставляем запятую правда условие можно написать и так: if  copy(s,i,2)='й ' then :) но мне так захотелось}
  begin
   insert(s,',',i+2);{вставляем запятую в строуку}
   inc(count);{увеличиваем счетчик вставок}
  end;
 end;
writeln(s);{выводим строку}
writeln(count);{выводим количество}
readln;{ожидание остановки}
end.

[IT-man]

1)

const n=8;
var
m:array[1..n,1..n] of integer;
ns:array[1..n] of integer;
i,j,k,s:integer;
begin
for i:=1 to n do
for j:=1 to n do
readln(m[i,j]);
Writeln('---------------------------');
for i:=1 to n do begin
for j:=1 to n do
write(m[i,j]:4);
writeln;
end;
Writeln('---------------------------');
for i:=1 to n do begin
k:=0;
for j:=1 to n do
if m[i,j]=m[j,i] then inc(k);
if k=n then writeln(i);
end;
Writeln('---------------------------');
k:=0;
s:=0;
for i:=1 to n do
for j:=1 to n do
if m[i,j]=0 then begin inc(k);ns[k]:=i;break;end;
if k<>0 then begin
for i:=1 to k do
for j:=1 to n do
s:=s+m[ns[i],j];
Writeln('sum=',s:8);
end;
readln;
end.