задача в delphi!!! помогите плииииз........

[Absent]

помогите исправить задачу.........
вроде все правильно, но чо та не работает!!

составить процедуру, которая из двух заданных массивов В и С одинаковой длины строит новый массив Т по правилу
F1(Bi) Bi>=Ci
Ti= - это система
F2(Ci) Bi<Ci
используя в качестве F1 синус, а в качестве F2 косинус, сформировать новую матрицу Е по правилу: первая строка формируется с помощью процедуры из двух первых строк матрицы А, вторая строка- из третьей и четвертой строк матрицы А и т.д


program Project43210;

{$APPTYPE CONSOLE}

uses
SysUtils;
const n=4;
type
mas=array[1..n] of real;
matr=array[1..n,1..n] of real;
fun=function(x:real):real;
VAR A,E:matr; C,B,t:mas; i,j,k:integer;
procedure p1( b:mas;c:mas; g1:fun; g2:fun; var t:mas);
var i,j:integer;
begin
i:=1;
for j:=1 to n do
if b[i]>=c[i] then
t[i]:=g1(b[i]) else
t[i]:=g2(c[i]) ;
end;

{$F+} function G1(x:real):real;
{$F-} begin G1:= sin(x); end;
{$F+} function G2(x:real):real;
{$F-} begin G2:=cos(x); end;

BEGIN
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Vvedite matr a');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
writeln ('vvedite b');
for i:=1 to n do read (b[i]);
writeln ('vvedite c');
for i:=1 to n do read (c[i]);

i:=1;
repeat
for j:=1 to n do


b[j]:=a[i,j];
c[j]:=a[I+1,J];

p1(b,c,g1,g2,t);
begin
k:=1;
E[k,j]:=t[j];
k:=k+1;
i:=i+2;
end;
until i<=6;
writeln ('E[',k,',',j,']',E[k,j]);
readln
END.

[Absent]

ну посмотрите, пожалуйста очень надо

[AlDelta]

Нарушение правил форума. Закрыто.