обработка матрицы

[Juli)]

Помогите пожалуйста!срочно нужно решение((((


Обработать матрицу, элементами которой являются случайные значения функции f(x)=x/13; x [-50;75]. Отсортировать по убыванию элементы главной диагонали матрицы S(10,10). Если элемент главной диагонали в строке положительный, то все оставшиеся элементы в строке заменить на единицу, в противном случае – на ноль. Напечатать исходную и полученную матрицы.

[VIK_aka_TOR]

randomize;
// заполнение
for i := 1 to 10 do
    for j := 1 to 10 do
        s[i,j] := random((126) - 50)/13;
// сортировка, строки не трогаем только главную диагональ (по условию)
for i := 1 to 10 do
    for j := 1 to 10 - 1 do
        if (s[j,j] < s[j+1,j+1]) then
           begin
                bufer := s[j,j];
                s[j,j] := s[j+1,j+1];
                s[j+1,j+1] := byfer;
           end;
// обработка
for i := 1 to 10 do
    if s[i,i] > 0 then
       begin
       for j:= 1 to 10 do
           if j = i then
              continue
           else
               s[i,j] := 1;
       end
    else
        for j:= 1 to 10 do
           if j = i then
              continue
           else
               s[i,j] := 0;