Помогите пожайлуста! Завтра экзамен. 2 задачи на множество и списки.

[Kati]

1. Определить функцию или процедуру, которая проверяет упорядочены ли элементы списка L1 по алфавиту.
2. Определить и вывести на экран множество символов входящих только в имя, фамилию, отчество введенные с клавиатуры!

[Sazary]

Ну вот так первая, например

uses crt;

type
pspis = ^spis;

spis = record
str : string;
next : pspis;
end;

var
L1,a: pspis;

//---------------
procedure add(var s : pspis; el : string);
begin
new(s^.next);
s^.next^.str := el;
s^.next^.next := nil;
s := s^.next;
end;

procedure del(var s : pspis);
var tmp : pspis;
begin
while s<>nil do
 begin
 tmp := s^.next;
 dispose(s);
 s := tmp;
 end;
end;

function poAlfavitu(p : pspis) : boolean;
var t : pspis;
b : boolean;
begin
t := p;
b := true;
while t^.next<>nil do
 begin
 if t^.str>t^.next^.str then
  begin
  b := false;
  break;
  end;
 t := t^.next;
 end;
poAlfavitu := b;
end;

procedure print(p : pspis);
begin
while p <> nil do
 begin
 writeln(p^.str);
 p := p^.next;
 end;
end;

begin
clrscr;
new(L1);
L1^.str := 'a';
L1^.next := nil;
//----------
a := L1;
add(a,'b');
add(a,'f');
add(a,'z');
a := L1;
print(a);

a := L1;
if poAlfavitu(a) then writeln('Po alfavitu!')
else writeln('Nea, ne po alfavitu');

del(L1);

readln;
end.

[Kati]

Огромное спасибо!!!