Выведите в порядке возрастания кодов

[Arnoldo]

Помогите написать программу в делфи в консоли.
Условие:Выведите в порядке возрастания кодов все строчные буквы латинского алфавита, имеющиеся в текстовом файле. Как понятно из условия, брать из текстового файла и выводить в новый.

[Stilet]

Твои попытки увидеть можно?

[Arnoldo]

Ну из файла я научился как делать, а что дальше не знаю. program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type
var s,s1,s2: String;
k,i: Integer;
procedure vvodstr(var s:string);
var fin:TextFile;
begin
AssignFile(fin,'File1.txt');
Reset(fin);
readln(fin,s);
CloseFile(fin);
end;