. Составить программу для вычисления элементов матрицы Y по известным элементам вектора X

For i:=1 to n do
 For j:=1 to m do
  if (sin(x[i])>sin(x[j]))and(x[i]<>0) then Y[i,j]:=(x[i]-x[j])/x[i]*sin(x[j]);

Var y:array[1..20,1..20] of real;
    x:array[1..20] of real;
    i,j,n:byte;
Begin
    write('Введите размерность: ');readln(n);
    writeln('Массив X');
    For i:=1 to n do
    Begin
      X[i]:=random*10-5;
      write(X[i]:6:2);
    End;
    writeln;
    For i:=1 to n do
     For j:=1 to n do
      if (sin(x[i])>sin(x[j]))and(x[i]<>0) then Y[i,j]:=(x[i]-x[j])/x[i]*sin(x[j]);
    writeln('Матрица Y');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(Y[i,j]:6:2);
      writeln;
    End;
    readln;
End.