Вычислить сумму членов бесконечного ряда для заданного Eps

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.

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

uses crt;
const
n=5;
var
mas: array [1..n,1..n] of integer;
i,j: integer;
max,min:integer;
sum:integer;
begin
Writeln('Âûâîä ìàòðèöû');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  mas[i,j]:=random(80)+10;
  write(mas[i,j],' ');
  end;
 writeln;
 end;
sum:=0;
max:=mas[1,1];
min:=mas[1,1];
for i:=1 to n do
 for j:=1 to n do
 if mas[i,j]>max then max:=mas[i,j];
 
for i:=1 to n do
 for j:=i to n do
 if mas[i,j]<min then min:= mas[i,j];
 
sum:=max+min;
writeln('Ìàêñèìàëüíûé ýëåìåíò ìàòðèöû: ',max);
writeln('Ìèí. íàä ãëàâíîé äèàãîíàëüþ: ', min);
write('Ñóììà: ', sum);
 end.