Как выполнить процедуру удаления элемента из массива по индексу?

Question

[quintbrut]

Есть

Код

program akb;
procedure DeleteElem<T>(a: array of T; k: word); 
begin 
for var i := k - 1 to length(a) - 2 do 
a[i] := a[i + 1]; 


SetLength(a, length(a) - 1); 

for var i := 0 to length(a) - 1 do 
write(a[i] + ' '); 

end; 

var
  text:string;
  k:integer;

begin 
  
  write ('Введите текст: ');
  readln(text);
  
  var arr := text.Split(' '); // Строка разбита на слова по пробелам
  //writeln(arr[0], ' ', arr[3]); // Слово11 Слово22
  write ('Введите элемент который нужно удалить: ');
  readln(k);


writeln('Массив после обработки: '); 
DeleteElem(arr, k); 
end.

.
На pascal ABC все прекрасно

работает

.
Но мне нужно запустить его на Turbo Pascal и вот что там

выходит

Мне нужно чтобы работало на турбо паскале, что нужно изменить в коде?

Исходное задание.

Дан текст не более 255 символов. Слова отделяются друг от друга пробелами. Удалить из текста слова с указанными номерами.

Comments

[quintbrut]

Hemul GM help me!

[Hemul GM]

quintbrut, ответил ниже

Answer 1

[Hemul GM]

Ты инициализируешь переменную сразу в цикле. Такое не умеет TP.
Ну и судя по заданию, не забудь, что у тебя смещаются слова и индексы слов совпадать не будут.

Comments

[quintbrut]

Значит достаточно указать переменные в начале да и все?

[quintbrut]

можешь помочь?

[Hemul GM]

quintbrut, ну да, объяви их как обычно.

[quintbrut]

Hemul GM, я не умею) на этом паскале))

[quintbrut]

Hemul GM, help me pls

[Hemul GM]

quintbrut, просто перед begin

procedure DeleteElem<T>(a: array of T; k: word); 
var i: integer;
begin 
for i := k - 1 to length(a) - 2 do 
a[i] := a[i + 1]; 
....

[Hemul GM]

quintbrut, ну и у тебя там Split не будет работать само-собой.

[Hemul GM]

quintbrut, ты элементы не удаляй из массива. Делай просто пустой строкой.
Так ты сохранишь соответствие индексов слов. А потом преобразуешь массив в текст, игнорируя пустые элементы массива.

[quintbrut]

Hemul GM, есть какие аналоги сплит?

[quintbrut]

Hemul GM,

[Hemul GM]

quintbrut, я тебе скинул как тебе сделать в том вопросе

[quintbrut]

Hemul GM, я посмотрел но не догоняю( сможешь сделать так чтобы оно работало?

вот задача

Дан текст не более 255 символов. Слова отделяются друг от друга пробелами. Удалить из текста слова с указанными номерами.

.
Моя реализация не подходит под TP, просто нужно на нем. Help pls!

[Hemul GM]

quintbrut,

program split1;

var
  InputStr, AWord: string;
  i, j, SpaceCount, LastPos, LastIndex: integer;
  a: array of string;  
  DelItems: array of integer;

begin
  InputStr := '1 2 3 4 5 6 7 8 9 0';
  
  WriteLn(InputStr);
  //Что-то для удаления
  SetLength(DelItems, 3);
  DelItems[0] := 2;
  DelItems[1] := 5;
  DelItems[2] := 7;
   
  //Очистим лишние пробелы по краям
  InputStr := Trim(InputStr);
  for i := 1 to Length(InputStr) do
    if InputStr[i] = ' ' then Inc(SpaceCount);
  //Размер массива
  SetLength(a, SpaceCount + 1);
  //Очистка
  LastPos := 1;
  LastIndex := 0;
  AWord := '';
  //По циклу
  for i := 1 to Length(InputStr) do
  begin
    if InputStr[i] <> ' ' then    
      AWord := AWord + InputStr[i];
    if (InputStr[i] = ' ') or ((i + 1) > Length(InputStr)) then
    begin
      if AWord <> '' then
      begin
        a[LastIndex] := AWord;
        Inc(LastIndex);
        LastPos := i;
        AWord := '';
      end;
    end;
  end;  
  //Удаляем
  for i := 0 to Length(a) - 1 do
    for j := 0 to Length(DelItems) - 1 do
    if i = DelItems[j] then
      a[i] := '';
  //Выводим
  for i := 0 to Length(a) - 1 do 
    if a[i] <> '' then
    write(a[i], ' ');
end.