что не так с программой

[Juli)]

Посмотрите что не так с программой,помогите исправить

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

program matrica;
   uses crt;
      const n=10;
      var s:array  [1..10 ,1..10] of real;
i,j,imn,jmn,mn:integer;
 byfer, x: real;
//s:matrix;
 begin

randomize;
// заполнение
for i := 1 to 10 do
  begin

    for j := 1 to 10 do
    begin
    x:=random (50);
        s[i,j] := x;  //random((126) - 50)/13;
        write (s[i,j],' ') ;

  if (i=1)and (j=1)then
  //begin
  //mn:=s[i,j];
  imn:=i;
  jmn:=j;


   end;
 writeln (s[i,j]) ;
  end;
// сортировка, строки не трогаем только главную диагональ (по условию)
//for i := 1 to 10 do begin
   // for j := 1 to 10 - 1 do



        if (s[j,j] < s[j+1,j+1]) then
           begin
                byfer := s[j,j];
                s[j,j] := s[j+1,j+1];
               s[j+1,j+1] := byfer;
                
                 write ('   byfer=',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;
               end.

From Stilet: Кож прошу оформлять спецтегом (по кнопке # в редакторе кода) по правилам.

[s-andriano]

С программой много чего не так.
Навскидку:
1. Она не отформатирована.
2. Имена идентификаторов ни о чем не говорят.
3. Одна строка комментария на всю программу - совершено недостаточно.
4. Программа "замусорена" закомментированным кодом.

[Juli)]

помогите исправить((((очень нужно....

[s-andriano]

Отформатировать - за Вас уже отформатировали.
Теперь мы должны переименовать переменные, расставить комментарии и удалить ненужные строки?

[Juli)]

подправила, не работает,что не так не пойму!

 program matrica;
var i,j,s :integer;
 begin

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;

[Mad_Cat]

const
     Nmax=10;
var
   A:array[1..nmax,1..nmax] of real;
   x:Integer;
   i,j,n:byte;
   f:boolean;
   buf:real;
begin
     n:=10;
     Randomize;
     For i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       x:=random(126)-50;
                       a[i,j]:=x/13;
                       write(a[i,j]:6:2);
                  end;
              writeln;
         end;
     writeln('======================================');
     f:=true;
     while f do begin
           f:=false;
           for i:=1 to n-1 do
               if a[i,i]<a[i+1,i+1] then
                  begin
                       buf:=a[i,i];
                       a[i,i]:=a[i+1,i+1];
                       a[i+1,i+1]:=buf;
                       f:=true;
                  end;
     end;
     For i:=1 to n do
         begin
              for j:=1 to n do
                  begin
                       if (a[i,i]>0) and (i<>j) then a[i,j]:=1;
                       if (a[i,i]<0) and (i<>j) then a[i,j]:=0;
                       write(a[i,j]:6:2);
                  end;
              writeln;
         end;
end.

для n=5

-1.77 4.92 -3.00 3.23 -3.08
4.85 3.62 1.23 -3.31 4.15
-2.92 3.92 0.31 5.54 2.77
3.92 4.38 4.77 -0.38 1.69
0.77 5.00 -2.08 -0.77 5.69
=================================== ===
5.69 1.00 1.00 1.00 1.00
1.00 3.62 1.00 1.00 1.00
1.00 1.00 0.31 1.00 1.00
0.00 0.00 0.00 -0.38 0.00
0.00 0.00 0.00 0.00 -1.77