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

[QDe5n1K]

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

[QDe5n1K]

Почитал, многое понял...
Но тогда подскажите, в чем может быть ошибка в этой процедуре:

Код

procedure open(var p:plist;var a:char);
var filex:text;
   s:string;
begin
nameoffile(s);   {задаю имя файла другой процедурой}
assign(filex,s);          
reset(filex);
while not eof(filex) do
     begin
     new(p);
     p^.next:=nil;
     readln(filex, p^.a);
     p:=p^.next;
     end;
while p^.next<>nil do
begin
write(p^.a,' ');
p:=p^.next;
end;
readkey;
end;

в результате выполнения всего этого беспредела мне выдается 6 очень странных сиволов, совсем не похожих на, например, 26 букв английского алфавита... в чем здесь ошибка ? подскажите плз