Pascal. Выделение слов в текстовых файлах

[Liinad]

Создать текстовый файл. Слова в рядках могут разделятся пробелами или запятыми. Необходимо вывести исходный и полученный в процессе выполнения программы файлы. Во всех словах, которые состоят только из маленьких латинских букв, заменить их на прописные. (если встречается такое слово : "ТрОн", к примеру, то мы его не трогаем, выводим сразу! А если слово "трон", только с маленьких, то его перевести нужно в верхний регистр. Всю строчку вывести в новом файле).
Помогите кто-то, столько раз писал не получается

Вот код для примера То что я смог сделать.
В нем много ошибок, так как от безвыходности, пытался сделать разными способами.

Очень нужно сделать эту программу

const
     B = ['A'..'Z'];
     A = ['А'..'Я'];
var
   f,p : text;
   sim : char;
   st,sl: string;
   i,c,d,j :integer;
   pr : boolean;
begin
     assign(f,'test.pas');
     assign(p,'itog.pas');
     reset(f);
     writeln('   Исходный файл : ');
     while not eof(f) do
          begin
               readln(f,st);
               write(st);
               writeln;
          end;
          rewrite(p);
          reset(f);
     while not eof(f) do
          begin
               readln(f,st);
               i:=1;
               while i<=length(st) do
                    begin
                         while (st[i]=' ') and (i<=length(st)) do
                              inc(i);
                              c:=i;
                         while (st[i]<>' ') and (i<=length(st)) do
                              inc(i);
                              sl:=copy(st,c,i-c);
                              d:=length(sl);
                              pr:=true;
                              for j:=1 to length(sl) do
                                 if sl[j] in A then
                                   pr:=false;
                                   sim:=upcase(sim);
                    end;
          end;
     writeln('   Полученный файл : ');
     reset(p);
     while not eof(p) do
          begin
               readln(p,st);
               writeln(st);
          end;
     close(f);
     close(p);
end.

[whatever]

Подправил для латиницы

const
     B = ['A'..'Z'];
     A = ['А'..'Я'];
var
   f,p : text;
   sim : char;
   st,sl,tmp: string;
   i,c,d,j :integer;
   pr : boolean;
begin
     assign(f,'C:\test.pas');
     assign(p,'C:\itog.pas');
     reset(f);
     writeln('   Исходный файл : ');
     while not eof(f) do
          begin
               readln(f,st);
               write(st);
               writeln;
          end;
          rewrite(p);
          reset(f);
          i:=1;
     while not eof(f) do
          begin
               readln(f,st);
               if i<>1 then
                 writeln(P);
               i:=1;
               while i<=length(st) do
                    begin
                         while (st[i]=' ') and (i<=length(st)) do
                              inc(i);
                              c:=i;
                         while (st[i]<>' ') and (i<=length(st)) do
                              inc(i);
                              sl:=copy(st,c,i-c);
                              d:=length(sl);
                              pr:=true;
                              for j:=1 to length(sl) do
                                 if sl[j] in B then  // проверяю B вместо A
                                 begin
                                   pr:=false;
                                   break;
                                 end;
                             if pr then
                               begin
                                 tmp:='';
                                 tmp:=sl;
                                 sl:='';
                                 for j:=1 to length(tmp)do
                                   begin
                                     sl:=sl+upcase(tmp[j]);
                                   end;
                               end;
                               write(P,sl+' ');
                    end;
          end;
     writeln('   Полученный файл : ');
     reset(p);
     while not eof(p) do
          begin
               readln(p,st);
               writeln(st);
          end;
     close(f);
     close(p);
  readln
end.

Тестировал на таком файле:

Сообщение от test.pas

duck DSAFL asdaS
asdS fadFA adsFDFSasd asd
afasf asfsafSA asfasfa as

asdasd ASD asd

rwew

Все работает:

DUCK DSAFL asdaS
asdS fadFA adsFDFSasd ASD
AFASF asfsafSA ASFASFA AS

ASDASD ASD ASD

RWEW

А для кирилицы достаточно сложно из-за кодировок. Чисто теоритически можно побаловаться с ord и char, но я понятия не имею, как в этом случае себя будет вести upcase.

[Вадим Мошев]

A = ['А'..'Я'];

Имхо, нельзя так задавать множество русских букв. Там содержится разрыв. В результате на ряду с русскими буквами там ещё будут и другие символы.

[whatever]

Сообщение от Вадим Мошев

Имхо, нельзя так задавать множество русских букв. Там содержится разрыв. В результате на ряду с русскими буквами там ещё будут и другие символы.

Это меньшая из проблем. Дэлфи не работает с кирилицей, поэтому нужно через CharToOEMBuff и OEMToCharBuff, да поверх всего этого сохранять в файл и читать из него.

В паскале та же фигня, сам он кирилицу понимает, но сохраняя в документ *.pas жутко ее коверкает. Возможно эту проблему можно вешить сохранением в *.txt и только тогда разбираться с множеством нашего алфавита. Я бы просто прописал вручную от А до Я и не забивал голову.

[Liinad]

Огромное спасибо за код, все работает)