Опишите процедуру ЗАМЕНА (L , i , j) - PascalABC.NET

type
  tList = ^rList;
  rList = record
    S : String;
    Next : tList;
  end;
  
// Процедура добавления нового элемента к списку
procedure ListAdd(var List : tList; S : String);
var
  tmp : tList;
begin
  if List = nil then // Добавляем первый
    begin
      New(List);
      List^.S := S;
      List^.Next := nil;
    end
  else // Добавляем в конец списка
    begin
      // Идём к последнему элементу списка
      tmp := List;
      while tmp^.Next <> nil do
        tmp := tmp^.Next;
      // Добавляем новый
      New(tmp^.Next);
      tmp := tmp^.Next;
      tmp^.S := S;
      tmp^.Next := nil;
    end;
end;
 
// Процедура ввода строк
procedure InputStrings(var List : tList);
var
  S : String;
begin
  WriteLn('Ввод пустой строки означает окончание ввода.');
  WriteLn('Вводите текст:');
  repeat
    ReadLn(S);
    if S <> '' then
      ListAdd(List, S);
  until S = '';
  WriteLn('Ввод текста окончен.');
end;
 
// Вывод списка
procedure OutputStrings(msg : String; List : tList);
begin
  WriteLn(msg);
  while List <> nil do
    begin
      WriteLn(List^.S);
      List := List^.Next;
    end;
end;
 
var
  List : tList;
begin
  List := nil;
  InputStrings(List);
  OutputStrings('Введён следующий текст:', List);
end.