Внесите исправления в ниже алгоритм, чтобы в результате его работы была нарисована рамка вдоль границ поля (исходное положение графического исполнителя – произвольное) и алгоритм не зацикливался: переход поворот переход поворот пока впереди не край нц линия поворот кц процедура переход пока впереди край повторять нц прыжок кц конец процедуры процедура линия пока впереди не край повторять нц шаг кц конец процедуры

переход поворот линия поворот линия поворот линия поворот линия поворот линия                                 так вот

Const   m = 10; // количество строк   n = 10; // количество столбцов var   arr: array [1..m, 1..n] of integer;   i,j,z,min,temp : integer; begin   for j : = 1 to m do     for i : = 1 to n do       arr[j, i] : = random(99);         writeln('исходный массив: ');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end;   for j : = 1 to m do   begin     for i : = 1 to n - 1 do     begin       min : = i;           for z : = i + 1 to n do           if arr[j, z] < arr[j, min]  then             min : = z;             temp : = arr[j, min];       arr[j, min] : = arr[j, i];       arr[j, i] : = temp;     end;   end;         writeln;   writeln('отсортированный массив');     for j : = 1 to m do   begin     for i : = 1 to n do      write(arr[j, i] : 2, ' ');     writeln;   end; end.

Uses graphabc; const   w = 600;   r = 300; dl = 40; sl = 250; ml = 200; hl = 150; var   h,m,s: integer;   i: integer;   x,y: integer;   g: real;   begin   setwindowsize(w,w);   read(h,m,s);   h : = h mod 12;   setpenwidth(2);   circle(w div 2, w div 2, r);   for i : = 0 to 59 do     begin     g : = (i*360/60 - 90) * pi/180;     if i mod 12 = 0 then       begin       x : = w div 2 + round((r - dl) * cos(g));       y : = w div 2 + round((r - dl) * sin(g));       end     else       begin       x : = w div 2 + round((r - dl div 3) * cos(g));       y : = w div 2 + round((r - dl div 3) * sin(g));       end;     line(x,y,w div 2 + round(r*cos( div 2 + round(r*sin(     end;   setbrushcolor(clwhite);     while true do     begin     setpencolor(clwhite);     circle(w div 2, w div 2, sl);     setpencolor(clblack);         setpenwidth(1);     g : = (6*s - 90) * pi/180;     x : = w div 2 + round(sl * cos(g));     y : = w div 2 + round(sl * sin(g));     line(w div 2, w div 2, x, y);         setpenwidth(2);     g : = ((60*m + s)/10 - 90) * pi/180;     x : = w div 2 + round(ml * cos(g));     y : = w div 2 + round(ml * sin(g));     line(w div 2, w div 2, x, y);     setpenwidth(3);     g : = (360*(60*60*h + 60*m + s)/12/60/60 - 90) * pi/180;     x : = w div 2 + round(hl * cos(g));     y : = w div 2 + round(hl * sin(g));     line(w div 2, w div 2, x, y);         s : = s + 1;     if s = 60 then       begin       m : = m + 1;       s : = 0;       end;     if m = 60 then       begin       h : = (h + 1) mod 12;       m : = 0       end;     sleep(1000)     end; end.