Найти длину наибольшего отрезка последовательности, состоящего из полных квадратов - Turbo Pascal - Ответ 3630218

uses crt;
const nmax=20;
function IsKvd(a:longint):boolean;
begin
IsKvd:=frac(sqrt(a))=0;
end;
var a:array[1..nmax] of integer;
    n,i,j,k,mx,imx:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том цисле цупочки полных квадратов:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=1;mx:=0;imx:=0;
while i<=n do
if IsKvd(a[i]) then
  begin
   j:=i;k:=0;
   while (Iskvd(a[j]))and(j<=n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>mx then
    begin
     mx:=k;
     imx:=i;
    end;
   i:=i+k;
  end
else i:=i+1;
if mx=0 then write('Нет полных квадратов!')
else
 begin
  writeln('Максимальная последовательность полных квадратов=',mx);
  for i:=imx to imx+mx-1 do
  write(a[i],' ');
 end;
readln
end.