Математика на паскале

[=ANDROID=]

Здравствуйте, я здесь новенькая)))

Лююююди!!!!Помогите пожалуйста, кто хорошо соображает в математике и турбо-паскале(((((( Уже третий день мучаюсь, пытаюсь написать программу и безрезультатно, я просто паскаль совсем не знаю (я на VisualBasic'e программирую), а программу надо успеть сделать до вторника и именно на паскале! ОТКЛИКНИТЕСЬ КТО-НИБУДЬ!!! Могу заплатить даж немного - условия ваши!

[DoDge_VipeR]

const n=10;m=10;
 type Tmatr = array[1..n,1..m] of real;
 type Tvect = array[1..1,1..m] of real;
 type  TVect1= array [1..n,1..1] of real;
var a1,b1,m1:Tmatr;
    x,x1:Tvect;
    Xt:Tvect1;
    pu:Boolean;
    op:Integer;
 {функция для заполнения матрицы A}
function z(a,b:real):Real;
begin
z:=a*sin(b)-b*cos(a);
end;


{заполнение матрицы}
procedure InputMatr(var MATR:Tmatr);
var i,j:Integer;
    x,y:Real;
    h:Real;
begin
x:=-0.1;y:=-0.1;
h:=1/10;
for i:=1 to 10 do  begin
  x:=x+(i)*h;
for j:=1 to 10 do begin
   y:=y+(j)*h;
 MATR[i,j]:=z(x,y); end;
 end;
end;
{вывод матрицы}
procedure OutMatr(var MATR:Tmatr);
var i,j:Integer;
begin
for i:=1 to 10 do  begin
for j:=1 to 10 do
 write(MATR[i,j]:7:2);
 Writeln;
 end;
end;
 {сортировка матрицы}
procedure Sort_S(Ms:Tmatr;t:Boolean;var M2:Tmatr);
var a,b,c,d:Integer;
e:Real;
begin
  if t then begin
for a:=1 to n do
for b:=1 to m do
for c:=1 to n do
for d:=c to m do
if ms[a,c]>ms[a,d] then begin
   e:=ms[a,c];
   ms[a,c]:=ms[a,d];
   ms[a,d]:=e;
end;
end
else
begin
 for a:=1 to n do
for b:=1 to m do
for c:=1 to n do
for d:=c to m do
if ms[a,c]<ms[a,d] then begin
   e:=ms[a,c];
   ms[a,c]:=ms[a,d];
   ms[a,d]:=e;
end;
end;
m2:=ms;
end;
{формирование вектора}
procedure form_Vector(var v:Tvect);
var i,k:Integer;
begin
  k:=0;
for i:=1 to m do
if b1[1,i]>0 then k:=k+1;
for i:=1 to m do
 v[1,i]:=k;
end;
{вывод вектора}
procedure Print_V(V:Tvect);
var i:Integer;
begin
Writeln('Vector X');
for i:=1 to m do
write(v[1,i]:6:2);
end;
{транспонирование}
procedure Trans_V(var v:Tvect1;v1:tvect);
var i:Integer;
begin
for i:=1 to n do
  v[i,1]:=v1[1,i];
end;
{вывод вектора столбца}
procedure Print_V1(V:Tvect1);
var i:Integer;
begin
Writeln('Vector Xt');
for i:=1 to n do
writeln(v[i,1]:6:2);
end;

{умножение строки на столбец }
procedure MULt_VV(a:tvect;b:tvect1; var C:tmatr);
var
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
C[i,j]:=0;
C[i,j]:=C[i,j]+a[1,i]*b[j,1];
end;
end;
{умножение матрицы на вектор}
Procedure MultM_V2( X:Tmatr;Y:Tvect;var Z:Tvect);
var i,j,h:integer;
s:Real;
begin
for i:=1 to n do for j:=1 to m do
begin
s:=0;
for h:=1 to n do
s:=s+X[i,h]*Y[1,j];
Z[1,j]:=s;
end;
end;
begin
Writeln('=========MATRiX A===========================');
InputMatr(A1);
OutMatr(A1);
Writeln;
Writeln('========================================');
Writeln('1- po ubivaniyu');
Writeln('2- po vozrastaniyu');
Readln(op);
if op =1 then pu:=False
else pu:=True;
Writeln('=========MATRiX B===========================');
Sort_S(A1,pu,B1);
OutMatr(B1);
Writeln('========================================');
form_Vector(X);
Print_V(X);
Writeln;
Writeln('========================================');
Trans_V(Xt,X);
Print_V1(Xt);
MultM_V2(A1,x,x1);
Writeln('=========================Matrix M=============================');
MULt_VV(x,Xt,M1);
OutMatr(M1);
Readln;
end.