Паскаль Не получаеться дописать прогу помогите ПЛИЗ

[ученик91]

1)вычислить сумму членов бесконечного ряда для заданного Eps
Z=1-x/1!+x^3/3!+x^5!+...x^(2k+1)/(2k+1)!+....
моя попытка
program lab31;
var
x,eps,Y,a,p,Q:real;
i,k:integer;
begin
writeln('вычисление суммы бесконечного ряда');
writeln('x,eps');
read(x,eps);
Y:=x+power(x,(2*k+1)/(2*k+1));{сумма};
p:=Y;
i:=3{номер ряда};
repeat
a:=y;
p:=p+;
y:=y+p;
i:=i+1;
writeln(z)
until
abs(a+z)<=eps;
write('y=',Y:10:5);
end.
2)В заданной целочисленной матрицеA[1:n,1:n] найти используя метод сортировки:
4 максимальных по абсолютной величине к-того столбца(k<=n)
program lab32;
type matr=array [1..20,1..20] of integer;
var n,i,c,k,j:integer;
max:real;
A:matr;
begin
writeln('введите размер матрици от 1 до 20');
repeat
read(n);
until (n>0) and (n<=20);
writeln('введите матрицу из ',n*n,' элементов');
for i:=1 to n do
for j:=1 to n do
read(A[i,j]);
begin
repeat
writeln('введите номер стобца');
read(k);
until (k<=n);
if a[i,j]>a[i,k] then
begin
b:=a[i,j] мозгов не хватает дальше=((( ночь сидел не получается(
3)В матрице A[1:n,1:n] вычислить:
сумму максимального элемента матрицы и минимального среди элементов расположенных над главное диагональю
Совсем не получеться=(
ПОМОгите пожалуста в среду уже сдавать а такая вот штука=(

[Namolem]

используйте тег [code] и отступы. Тогда и вам и нам будет проще разобраться

[ai\ekcah^p]

Вот третья задачка

program zad3;
uses crt;
type massiv=array[1..100,1..100] of integer;
var
  a:massiv;
  smax,smin,i,n,j:integer;
begin
  clrscr;
  randomize;
  smax:=a[1,1];

  write('введите n ');readln(n);
  for i:=1 to n do
  begin
      for j:=1 to n do
      begin
          a[i,j]:=random((90)-10);
          write(a[i,j]:3);
          if a[i,j]>smax then smax:=a[i,j];
      end;
      writeln;
  end;
   writeln;
  writeln('элементы выше главной диагонали: ');
  smin:=a[1,2];
  For i:=1 To n Do
  begin

      For j:=1 To n Do
      begin
          if (i<j) then
          begin
              write(a[i,j]:2);
              writeln;
              if a[i,j]<smin then smin:=a[i,j];
          end;
       end;
  end;
  write('сумма max матрицы ',smax,' и  min выше главной диагонали ',smin,' равна-> ');
  writeln(smax+smin);
  readln;
end.

[ученик91]

спасибо большое