Задача на сортировку стрингов., Мое решение некорректно работает с кириллицей :( Опции

[forscripts]

Итак, суть задачи: дан файл input.txt, содержащий в первой строке число - количество строк, а затем строку в каждой строке. Необходимо отсортировать эти строки в порядке убывания, при этом создав файл config.txt вида

Код

1 1 1

//Первое число показывает, стоит урезать пробелы или нет.
Если надо обрезать пробелы, ставим 1. Если не надо, 0.
Пример:
При сравнении строк "А Б В" и " АБВ" со значением опции 1 в выходной файл будут выведены
строки "АБВ" и "АБВ", со значением опции 0 - " АБВ" и "А Б В" соответственно.

//Второе число показывает, считать большие буквы равные маленьким, или нет.
Если считать большие буквы равные маленьким, ставим 1. Если считать их разными, 0.
Пример:
При сравнении строк "абв" и "АБВ" со значением опции 1 в выходной файл будут выведены "АБВ"
и "АБВ". При значении опции 0 - "АБВ" и "абв" соответственно.

//Третье число показывает, транслитерировать русские названия или нет.
Если надо транслитерировать русские названия, все кириллические символы будут переведены в
символы латиницы. Если нет, то русские символы останутся на месте, а все русские строки
в выходном файле будут расположены после латинских.
Пример:
При сравнении строк "zak" и "абв" при значении опции 1 в выходной файл будут выведены "abv"
и "zak", при значении опции 0 - "zak" и "абв" соответственно.

Результат должен быть выведен в файл output.txt

Моя программа (все текстовые файлы и исходник программы) добавлена в прикрепления.

Вот код основной программы:

program strsort;
 var f1,f2,conf:text; 
	 n:integer;
	 a:array[1..1000] of string; 
	 i,k,e,q:integer; 
	 r:integer; 
	 s,s1,s2,t:string;
	 opt1,opt2,opt3:integer; 
 function trlit(a:string):string;
 var s:string;
	 q:string;
	 t,k:integer;
 begin
  q:='';
  s:='';
  k:=1;
  t:=length(a);
  while k<=t do begin
  case a[k] of
			... (тут все буквы большого и малого регистра кириллицы и их аналоги в транслите)
			else s:=a[k];
			end;
 if length(s)>=2 then begin t:=t+length(s); k:=k+length(s); end;
 q:=q+s;
 k:=k+1;
 end;
 trlit:=q;
 end;
 function up(s:string):string;
  var stmp:string;
	  z:byte;
	  c:char;
  begin
   stmp:='';
	for z:=1 to length(s) do
	begin
	 c:=s[z];
	 case c of
	  'а'..'п':stmp:=stmp+chr(ord©-32);
	  'р'..'я':stmp:=stmp+chr(ord©-80);
	  else stmp:=stmp+upcase©;
	 end;
	end;
  up:=stmp;
 end;
 function sravn(s1,s2:char):integer;
 begin
  if s1<s2 then sravn:=1;
  if s1=s2 then sravn:=0;
  if s1>s2 then sravn:=2;
 end;
 function probel(s:string):string;
  var i,l:integer;
 begin
  l:=length(s); 
  for k:=1 to l do for i:=1 to l do if s[i]=' ' then begin delete(s,i,1); l:=l-1; end;
  probel:=s;
 end;
begin
 assign(f1,'input.txt');
 assign(f2,'output.txt');
 assign(conf,'config.txt');
 reset(conf);
 read(conf,opt1,opt2,opt3);
 close(conf);
 if ((opt1<>0) and (opt1<>1)) or ((opt2<>0) and (opt2<>1)) or ((opt3<>0) and (opt3<>1)) then
 begin
  writeln('Ошибка при чтении конфигурационных данных.');
  writeln('Поломался файл config.txt ');
  readln;
  halt;
 end;
 reset(f1);
 readln(f1,n);
 for i:=1 to n do readln(f1,a[i]); 
 close(f1);
 if opt1=1 then for i:=1 to n do a[i]:=probel(a[i]);
 if opt2=1 then for i:=1 to n do a[i]:=up(a[i]); 
 if opt3=1 then for i:=1 to n do a[i]:=trlit(a[i]); 
 k:=1; 
 while k<n do begin
 for i:=1 to n-1 do begin
  r:=0; q:=1;
  while r=0 do begin 
   s1:=a[i]; 
   s2:=a[i+1];
   r:=sravn(s1[q],s2[q]);
   if (q>length(s1)) or (q>length(s2)) then r:=1;
   q:=q+1;
  end;
  if r=2 then begin s:=a[i]; a[i]:=a[i+1]; a[i+1]:=s; end;
 end;
 k:=k+1;
 end;
 rewrite(f2);
 for i:=1 to n do writeln(f2,a[i]);
 close(f2);
end.

Программа компилируется и абсолютно корректно работает со строками в латинице и кириллице с отключенными опциями 2 (перевод с верхний регистр) и 3 (транслитерация). С включенными опциями 2 и 3 программа с кириллицей работает некорректно. Если я правильно понимаю, скомпиленная ФриПаскалем прога не может корректно работать с виндовскими текстовыми файлами, и поэтому считывает кириллицу некорректно. Подскажите, пожалуйста, что делать, и как научить прогу полностью корректно обращаться с кириллицей.
Спасибо.

Сообщение отредактировано: forscripts - 17.12.2007 16:49

[andriano]

Так надо отнимать не от ЛЮБОГО символа кириллицы, а только от СТРОЧНОГО.