Плиз срочно помогите решить задачи....

program Lab_3;
{$APPTYPE CONSOLE}
uses
  SysUtils;
Var
  A:array[1..4,1..3] of integer;
  i,j:integer;
  d:integer;
begin
  A[1,1]:=25;
  A[1,2]:=69;
  A[1,3]:=15;
  A[2,1]:=36;
  A[2,2]:=15;
  A[2,3]:=78;
  A[3,1]:=98;
  A[3,2]:=75;
  A[3,3]:=45;
  A[4,1]:=12;
  A[4,2]:=14;
  A[4,3]:=19;
  writeln ('Procesing input screen in massive...');
 writeln('This massive is:');
for i:=1 to 4 do
 begin
 for j:=1 to 3 do
  write(A[i,j]:4);
  writeln;
 end;
 write('Press Enter to next step.....');
 readln;
 write ('Input chislo from massive. A=');
 repeat
 readln(d);
 until (d=A[1,1]) or (d=A[1,2]) or (d=A[1,3]) or (d=A[2,1]) or (d=A[2,2]) or (d=A[2,3]) or (d=A[3,1]) or (d=A[3,2]) or (d=A[3,3]) or (d=A[4,1]) or (d=A[4,2]) or (d=A[4,3]);
 if A[1,1]>d then A[1,1]:=0;
 if A[1,2]>d then A[1,2]:=0;
 if A[1,3]>d then A[1,3]:=0;
 if A[2,1]>d then A[2,1]:=0;
 if A[2,2]>d then A[2,2]:=0;
 if A[2,3]>d then A[2,3]:=0;
 if A[3,1]>d then A[3,1]:=0;
 if A[3,2]>d then A[3,2]:=0;
 if A[3,3]>d then A[3,3]:=0;
 if A[4,1]>d then A[4,1]:=0;
 if A[4,2]>d then A[4,2]:=0;
 if A[4,3]>d then A[4,3]:=0;
 writeln('Processing data.....');
 writeln('Processing massive is:');
 for i:=1 to 4 do
  begin
  for j:=1 to 3 do
  write (A[i,j]:4);
  writeln;
  end;
  writeln('Thank you for use my program......');
  writeln ('ArTJIauT Inc. 2008');
  writeln;
  writeln;
  writeln ('Press Enter to exit....');
  readln;
end.

 program Laboratorna;
{$APPTYPE CONSOLE}
{ y = 0.05cos(x + 1); ³íòåðâàë : â³äð³çîê [Pi/4,Pi], êðîê Pi/8.}
uses
  SysUtils,
  Math;

var i:integer;
    x,y,s1,s2,s3:real;
begin
  writeln('Funk "for"');
  x:=pi/4;
  s1:=0;
   for i:=1 to 6 do
    begin
    y:=0.05*cos(x+1);
    x:=x+pi/8;
    s1:=s1+y;
    writeln('y=',y:6:2,'  x=',x:6:2);
    end;
  writeln;
  Writeln('Funk "while"');
  x:=pi/4;
   s2:=0;
   i:=1;
  while i <=6 do
    begin
    y:=0.05*cos(x+1);
    x:=x+pi/8;
    s2:=s2+y;
    Inc(I);
    writeln('y=',y:6:2,'  x=',x:6:2);
    end;
    writeln;
    writeln('Funk "repeat"');
    x:=pi/4;
    s3:=0;
    i:=0;
  repeat
    y:=0.05*cos(x+1);
    x:=x+pi/8;
    s3:=s3+y;
     Inc(I);
     writeln('y=',y:6:2,'  x=',x:6:2);
 until I>5;
  writeln;
  s1:=pi;
  s2:=pi;
  s3:=pi;
  writeln('Results:');
  writeln('funk "for"');
  writeln('s1=',s1:6:3);
  writeln;
  writeln('funk "while"');
  writeln('s2=',s2:6:3);
  writeln;
  writeln('funk "repeat"');
  writeln('s3=',s3:6:3);
  writeln('Press Enter to exit');
  readln;
end.

 
const n=4;
        m=3;
        x:array[1..n,1..m]of integer=((25,69,15),
                                               (36,15,78),
                                               (98,75,45),
                                               (12,14,19));

until (d=A[1,1]) or (d=A[1,2]) or (d=A[1,3]) or (d=A[2,1]) or (d=A[2,2]) or (d=A[2,3]) or (d=A[3,1]) or (d=A[3,2]) or (d=A[3,3]) or (d=A[4,1]) or (d=A[4,2]) or (d=A[4,3]);

Write('Input chislo A:');
readln(A);
for i:=1 to n do
for j:=1 to m do
if x[i,j]>A then x[i,j]:=0;

 
sum:=0;
for i:=1 to n do
   begin
     y:=0.05*cos(pi/4+(i-1)*pi/8+1);//i-1*pi/8 это приращение в данной точке
     writeln('|',(i+1):4,'pi/8 |',y:8:3,' |');
     writeln(f,'|',(i+1):4,'pi/8 |',y:8:3,' |'); //это вывод в файл, у Вас что-то про него написано
     sum:=sum+y;
   end;

i:=0;sum:=0;
while i<n do
begin
i:=i+1;
y:=0.05*cos(pi/4+(i-1)*pi/8+1);
writeln('|',(i+1):4,'pi/8 |',y:8:3,' |');
writeln(f,'|',(i+1):4,'pi/8 |',y:8:3,' |');
sum:=sum+y;
end;

i:=0;sum:=0;
repeat
i:=i+1;
y:=0.05*cos(pi/4+(i-1)*pi/8+1);
writeln('|',(i+1):4,'pi/8 |',y:8:3,' |');
writeln(f,'|',(i+1):4,'pi/8 |',y:8:3,' |');
sum:=sum+y;
until i=n;