Путем пошаговой детализации составьте программу управления графическим исполнителем стрелочка, чтобы расчертить все поле в клетку со стороной, равной шагу, (как на фото). Можно подробно со скриншотом окна графического исполнителя с кодом и НЕ СКИДЫВАЙТЕ скрин из интернета, где половины кода не видно.

Алгоритм выполнения домашнего задания.
Начало
Взять дневник.
Посмотреть домашние задания.
Распланировать последовательность выполнения заданий.
Распределить время выполнения.
Открыть нужные учебники и тетради.
Начать выполнять домашнее задание.
После их выполнения сложить учебники и тетради в портфель.
Конец.
Алгоритм рецепта приготовления пирога.
Начало.
Налить 250 мл кефира в стакан.
Взять 2 яйца.
Взять 1 стакан муки.
Взять 1 луковицу.
Взять 1 картофелину.
Взять 1 банку консервированной горбуши.
Взять 1/2 ложки гашенной соды.
Смешать в тарелке яйца, кефир, муку, соду.
Замешать тесто.
Нарезать картофель мелкой соломкой.
Половину полученного теста вылить в форму для запекания.
Выложить на него картофель.
Обжарить лук до прозрачности.
Разминаем горбушу.
Кладем ее вместе с луком к картофелю. 
Заливаем полученное второй половиной теста.
Разогреваем духовку до 180 градусов.
Выпекаем 40 минут.
Зубочисткой проверяем готовность пирога.
Конец.
Алгоритм мытья посуды.
Начало.
Берем губку.
Наносим на нее моющее средство. 
Грязную посуду складываем в раковину.
Протираем губкой посуду.
Включаем воду.
Смываем ею моющее средство с посуды.
Складываем чистую посуду в шкаф.
Конец.
Алгоритм путешествия Колобка в известной сказке.
Начало.
Уйти от бабушки с дедушкой.
Встретить зайца.
Уйти от него.
Встретить волка.
Уйти от него.
Встретить медведя.
Уйти от него.
Встретить лису.
Поверить лисе.
Оказаться съеденным. 
Конец.

Uses  
CRT;
Const  
nmax=40;  
mmax=40;
var  a,b:array[1..nmax,1..mmax] of integer;  
i,j,n,m:integer;
begin
ClrScr;
repeat  
write('N:=');  
Readln(n);
until n in [1..nmax];
repeat  
write('M:=');  
Readln(m);
until m in [1..mmax];
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin  
for j:=1 to m do  begin  
a[i,j]:=random(10)-3;  
write(a[i,j]:5);  
b[i,j]:=a[i,j]*a[i,j]*a[i,j];  
end;
writeln;
end;
writeln('Результирующий массив: ');
for i:=1 to n do
begin  
for j:=1 to m do  
begin  
write(b[i,j]:5);  
end;
writeln;
end;
readkey
end.