Методика підрахунку прямокутників різної форми

ycur:=1;

curpos (xcur,ycur,xcur,ycur);

repeat

case readkey of

#0:begin

ch:=readkey;

case ch of

#77: begin

xcur:=xcur+1;

if xcur>8 then xcur:=8;

curpos (xcur-1,ycur,xcur,ycur);

end;

#75: begin

xcur:=xcur-1;

if xcur<1 then xcur:=1;

curpos (xcur+1,ycur,xcur,ycur);

end;

#80: begin

ycur:=ycur+1;

if ycur>8 then ycur:=8;

curpos (xcur,ycur-1,xcur,ycur);

end;

#72: begin

ycur:=ycur-1;

if ycur<1 then ycur:=1;