Удаление и поиск в одномерном массиве. Криво работает программа помогите пожалуйста.делфи

[snord123]

Здравствуйте уважаемые форумчане!
Не могу реализовать поиск элемента в массиве по индексу.
И удаление работает криво - после удаления одного элемента в конце появляется новое число.
Кто может или знает как реализовать вставку прошу помощи.

uses
  SysUtils,Windows,
  inout;
  const
  R = 10;
  E = R - 1;
label
   loop,
   kup,
   hut,
   rot,
   corp;
var
 mas:array [1..10] of integer;
 k,n,m,u,i,j,y,v,b,h,p,a,t,g,s,num:integer;
begin
 corp:
  randomize;
  for m:= 1 to 10 do
  mas[m]:=random(100);
      begin
              i:=m+1;
              mas[m]:= mas[i];
      end;
          for m:= 1 to 10 do
          write(mas[m]:3);
          writeln;
   writeln(ruswd('<1> Удалить <2> Поиск <3> Вставить <4> Выход'));
   readln(u);
   if u=1 then goto loop;
   if u=2 then goto kup;
   if u=3 then goto hut;
   if u=4 then goto rot;
 loop:
    writeln;
    write(ruswd('Введите индекс элемента для удаления- '));
    readln(n);
    for m:= n to 10 do
      begin
      i:=m+1;
      mas[m]:= mas[i];
      end;
    for m:= 1 to 10 do
    write(mas[m]:3);
    writeln;
    writeln(ruswd('<1> Повторить <2> В главное меню <3> Выход'));
    readln(h);
    if h=1 then goto loop;
    if h=2 then goto corp;
    if h=3 then goto rot;

 kup:
  begin
  writeln(ruswd('Введите числдо ,которое будем  искать в массиве'));
  readln(p);
  for i := 1 to n do
    begin
      readln(mas[j]);
      if mas[j] = p then begin
      y := y + 1;
      mas[y] := j;
        if y = 0 then writeln(ruswd('В массиве нет такого числа!'))  else
  if y = 1 then writeln(ruswd('Число найдено, его порядковый номер = '), mas[y]) else
  begin
    write(ruswd('Число найдено, его порядковые номера = '));
    for j := 1 to y do
      write(mas[j], ' ');
      writeln(ruswd('<1> Повторить <2> В главное меню <3> Выход '));
      readln(h);
      if h=1 then goto kup;
      if h=2 then goto corp;
      if h=3 then goto rot;
  end;
  readln;
   end;
   end;
   end;
 hut:
 begin
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
    Writeln(ruswd('Исходный массив:'));
    for t := 1 to E do begin
      mas[m] := m * 2;
      if m > 1 then Write(', ');
      Write(mas[m]);
    end;
    Writeln;

    Writeln(ruswd('Задайте целое число:'));
    Readln(Num);
    //Поиск позиции, в которую должно быть вставлено число.
    m := 1;
    while (Num > mas[m]) and (m <= E) do m := m + 1;
    //Сдвиг элементов массива, начиная от найденной позиции
    //t до конца массива.
    for g := E downto t do mas[g + 1] := mas[m];
    Writeln (ruswd('Вставка числа.'));
    mas[m] := Num;

    Writeln(ruswd('Число вставлено в позицию: '), (m));
    Writeln(ruswd('Массив после вставки числа:'));
    for m := 1 to R do begin
      if m > 1 then Write(', ');
      Write(mas[m]);
    end;
    Writeln;

    Writeln(ruswd('<1> Повторить <2> В главное меню <3> Выход'));
    Readln(S);
    if s=1 then goto hut;
    if s=2 then goto corp;
    if s=3 then goto rot;
end;
rot:
end.

Ребят ну помогите прошу. Курсовой проект. Старая преподовательница (знающая делфи) ушла на пенсию около месяца назад. Друзья помогли чем смогли. Новый препод не помогает ничем.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

'<1> Óäàëèòü <2> Ïîèñê <3> Âñòàâèòü'

snord123, перед копированием текста на форум включайте русскую раскладку клавиатуры, тогда не будет этих косяков..

[snord123]

Сообщение от Serge_Bliznykov

snord123, перед копированием текста на форум включайте русскую раскладку клавиатуры, тогда не будет этих косяков..

эм..ок, простите я новенький на форуме.

[Serge_Bliznykov]

Сообщение от snord123

эм..ок, простите я новенький на форуме.

Ничего страшного, главное, теперь Вы всё получилось, русский текст виден нормально.

для того, чтобы удалять элементы из одномерного массива, Вам нужно или изменять количество элементов в массиве (т.е. понимать, что когда из массива, в котором 10 чисел, удаляют один элемент, то в массиве остаётся 9 элементов).
Либо, если длина массива не меняется и ВСЕГДА равна 10, то дописывать нули в конец массива.

Вот, например,
у Вас есть массив из 10 элементов. в нём такие значения:
21 22 23 24 25 26 27 28 29 30

удалите из него третий элемент.
Выведите, какой массив должен получится после удаления.


А вы зря нарушаете правила форума!
Зачем Вы ещё одну тему создали?! Кросспостинг (создание дублирующих тем) на форуме СТРОГО запрещено!

[snord123]

Удаление должно быть по индексу, и элементы в нем рандомные а не по возрастанию и прочее. Незнаю как это собрать всё по кусочкам решил обратиться сюда.
Прошу прощения за нарушение правил но всё выглядило безнадёжно. Никто не отвечал.
Я вот подумал что если создам новую тему она ведь появляется в начале списка помощи студентам, то будем шанс реализовать программу, ведь сам то я дуб в сфере программирования =(

[Serge_Bliznykov]

Удаление должно быть по индексу, и элементы в нем рандомные а не по возрастанию и прочее.

ОМГ.

Ок.
у Вас есть массив. в нём десять значений:
17 99 21 65 14 77 81 34 22 11

удалите элемент с индексом = 3 (третий элемент).

После удаления напишите, какой массив получится?

[snord123]

Сообщение от Serge_Bliznykov

После удаления напишите, какой массив получится?

17 99 65 14 77 81 34 22 11 3

вот такой
в конце "3" добавляется
то число которое вписываю в индекс появляется в конце массива.
и кажется я перемешал код делфи с кодом С++
.....