Практика

[Stilet]

нужно не в Паскаль)

А причем тут Паскаль? Это Делфи, детка. Бери и пробуй.

[Косюра]

Вообще код написанный Stilet - Delphi. Об этом просто кричит строка

{ TODO -oUser -cConsole Main : Insert code here }

А Вам на заметку, Крим, что Delphi - это среда разработки, а язык Pascal.

[Крим]

что я не догоняю.
как куда это записать.
рабочее поле...
я создала: Edit 1- Там где должен находиться сам первоначальный массив
а Edit 2- там где уже циклически сдвинутый будет
и кнопку выполнить
и что куда...помогите вставить)))

[Крим]

const n = 6;

var
arr: array[1..n] of integer;
i, t, pos: integer;

procedure Vstavka(num, id: integer; var m: array of integer);
var
j: integer;
begin
for j := n - 1 downto id - 1 do
m[j + 1] := m[j];

m[id - 1] := num;
end;

begin
writeln('Zapolnite massiv: ');
for i := 1 to n - 1 do
readln(arr[i]);

write('Ves massiv: ');
for i := 1 to n - 1 do
write(arr[i]:5);

writeln;

write('Ukajite eje odin element: ');
readln(t);
write('Ukajite poziciyu v massive ot 1 do ', n, ': ');
readln(pos);

Vstavka(t, pos, arr);

write(' Ves massiv: ');
for i := 1 to n do
write(arr[i]:5);
writeln;


readln

end.





................................... ..
вот как разбить на процедуры???
как форму создать???