Задача на списки., Хелп. Опции

[QDe5n1K]

Люди помогите!!! Плз... Задача звучит так:
"ВВодится некоторая последовательность букв русского алфавита и записывается в памяти в виде линейного списка. Определить упорядочена ли последовательность по алфавиту( если нет, то упорядочить), заменить выбранную K-ую букву на Q-ю, поменять местами первую и последнюю буквы...
Люди, пожалуйста, подскажите как это делать и приведите примеры кусочков кода (полный мне не нужен, хочу сам разобраться, но для этого нужно небольшое ускорение) Пожалуйста, подскажите что и как...

[QDe5n1K]

Ладно, вот еще
Я собираюсь поменять число под номером P на число под номером Q...

Код

procedure change_p_to_q(var g:plist; var a:char);
var     l,p,q:word;
        x:char;
begin
writeln('Введите номер числа, которое вы хотите заменить');
readln(p);
writeln('Введите номер числа, на которое вы хотите поменять число под номером',p);
readln(q);
l:=0;
while l<>j do    {здесь я пытаюсь искать букву под номером q - то, на что буду менять}
    begin
       l:=l+1; g:=g^.next; x:=g^.next^.a;
    end;
l:=0;
while l<>i do     {здесь ищу ту букву, которую нужно поменять - p}
begin l:=l+1 g:=g^.next; end;
g^.a:=x;           {собственно присваиваю символьной переменной,  находящейся по этому адресу значение x, то бишь значение символа под номером q}
end;

Блин, ну что здесь не так... обьясните пожалуйста, что же я опять не так делаю?

Сообщение отредактировано: QDe5n1K - 24.11.2004 23:46