Рассчитать расход реагента

program two_six;
type mass=array[1..10,1..2] of real;
var A:mass;
    i,j: integer;
    P,R: real;
begin
 for i:=1 to 10 do
  begin
   for j:=1 to 2 do
    begin
     write('A[',i,',',j,']=');
     read(A[i,j]);
    end;
  end;
 write('Максимальное весовое количество реагента равно ');
 readln(P);
 begin
  repeat
  for i:=1 to 2 do
   for j:=1 to 10 do
    R:=R+A[1,i]*A[j,1];
    writeln('За ',j,' промежутков времени потрачено ',R,' весового
количества реагента');
    R:=0;
   until R<P;
   if R>P then
   writeln('Сумма превысила допустимое весовое количество реагента');
 
end;
end.

write('Максимальное весовое количество реагента равно ');
readln(P);
R:=0;
i:=1;
while (i<=m)and(R<P) do
 begin
  R:=R+A[i,1]*A[i,1];
  writeln('За ',i,' промежутков времени потрачено ',R:0:2,' весового количества реагента');
  if R<P then i:=i+1;
 end;
writeln('R=',R:0:2);
if R>P then  writeln('Сумма превысила допустимое весовое количество реагента')
else writeln('Сумма не превысила допустимое весовое количество реагента')

var P,S,S1:double; A:array[1..10,1..2] of double;
i,j : integer;
begin
S :=0;
write('Введите максимальное весовое количество реагента ');
readln(P);
for i:=1 to 10 do
begin 
//for j:=1 to 2 do
//begin
//writeln('введи A[',i,',',j,']');
//read(A[i,j]);
A[i,1] := i;
A[i,2] := 2;
end;
//end;
for i:=1 to 10 do
begin
S1:= A[i,1]*A[i,2];
S:=S + S1;
if (S<=P) then writeln('За промежуток времени ',i,' израсходдовано реагента ',S1)
else begin 
writeln('Суммарное количество реагента превысило максимальное вохможное количество');
break;
end;
end;
end.