Метод сортировки трёх строк по алфавиту.

Program StrPoAlf;
uses crt;
var a, b, c, d: string[20];
begin
clrscr;
writeln('Введите 1-е слово');
readln(a);
writeln('Введите 2-е слово');
readln(b);
writeln('Введите 3-е слово');
readln(c);
d:=' ';
if a>b then
begin
d:=a; a:=b; b:=d;
end;
if b>c then
begin
if c begin
d:=a; a:=c; c:=d;
end;
d:=b; b:=c; c:=d;
end;
writeln(a);
writeln(b);
writeln(c);
readkey;
end.

---