Определить максимальные периоды увеличения добычи для каждой компании

var a:array[1..10,1..11]of integer;
    n,t,i,j,k,l,lmax,i1,i2:integer;
begin
repeat
write('Введите число компаний от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Введите количество лет наблюдения от 2 до 10 t=');
readln(t);
until t in [2..10];
writeln('Введите добычу по годам');
for i:=1 to n do
 begin
  writeln('Компания ',i);
  for j:=1 to t do
  readln(a[i,j]);
 end;
write('Год');
for i:=1 to t do
write(2017-t+i:5);
writeln;
for i:=1 to n do
 begin
  write(i:2);
  for j:=1 to t do
  write(a[i,j]:5);
  writeln;
 end;
writeln('Максимальные периоды увеличения добычи для каждой компании');
k:=0;
for i:=1 to n do
 begin
  a[i,t+1]:=0; //барьер
  lmax:=0;
  l:=0;
  for j:=2 to t+1 do
  if a[i,j]>a[i,j-1] then l:=l+1
  else  if l>lmax then
   begin
    lmax:=l;
    i2:=j-1;
    i1:=j-l-1;
    l:=0;
   end;
  if lmax>0 then
   begin
    k:=1;
    writeln(i:2,' Максимальный период=',lmax,' годы с ',2017-t+i1,' по ',2017-t+i2);
   end;
 end;
if k=0 then write('Нет периодов повышения добычи')
end