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

type
  tList = ^rList;
  rList = record
    S : String;
    Next : tList;
  end;

procedure ListChange(L : tList; i, j : Integer);
var n : Integer; Ci, Cj : tList;
begin
  Ci := L; n := 1;
  while (Ci <> nil) and (n < i) do
    begin Ci := Ci^.Next; n += 1; end;
  if Ci = nil then Exit; /// Нет такого значения
  Cj := L; n := 1;
  while (Cj <> nil) and (n < i) do
    begin Cj := Cj^.Next; n += 1; end;
  if Cj = nil then Exit; /// Нет такого значения
  { замена на копию }
  Ci^.S := Cj^.S;
end;

type
  list = ^Tlist;
  Tlist = record
    next: list;
    s: String;
  end;
procedure Vvod(var l: list);
var
  p: ^list;
  ss: String;
begin
  p:=@l;
  WriteLn('Vvedite stroki, okonchanie vvoda .');
  repeat
    ReadLn(ss);
    if s='.' then Break;
    New(p^); p^^.s:=ss; p:=@p^^.next;
  until False;
  p^:=nil;
end;

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.

type
  tList = ^rList;
  rList = record
    S : String;
    N:Integer;
    Next : tList;
  end;