Как сделать так, чтобы эта программа не только переводила со строчных в заглавные, но и проверяла строчная или нет?

var f: text; n: string;
begin
assign(f,'s.txt');
reset(f);
while not eof(f) do
        begin
          read(f,n);
          end;
write(n);
close(f);
end.

var f, g: text; n: string;
begin
assign(f,'s.txt');
assign(g,'z.txt');
reset(f);
rewrite(g);
while not eof(f) do begin
readln(f,n);
n:=upcase(n);
writeln(g,n);
end;
close(f);
close(g);
end.

const mb='абвгдеёж......';
         bb='АБВГДЕЁЖ....';
var c:char;
.................
while not eof(f)do
 begin
   read(f,c);
   if pos(c,mb)>0 then c:=bb[pos(c,mb)];
   write(g,c);
 end;

const m='абвгдеёж......';
         b='АБВГДЕЁЖ....';
var f: text; n: char;
begin
assign(f,'s.txt');
reset(f);
while not eof(f) do
        begin
          read(f,n);
          end;
write(n);
close(f);
end.

const m='абвгдеёж......';
         b='АБВГДЕЁЖ....';
var f, g: text; var n:char;
begin
assign(f,'s.txt');
assign(g,'z.txt');
reset(f);
rewrite(g);
while not eof(f) do
 begin
   read(f,n);
   if pos(n,m)>0 then n:=b[pos(n,n)];
   write(g,n);
 end;

const alf='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';//алфавит
procedure Convert(var s:string);//перевод  из файла в программу{ANSI -> ASCII}
var i:integer;
begin
for i:=1 to length(s) do
if ord(s[i]) in [192..239] then s[i]:=chr(ord(s[i])-64)
else if ord(s[i]) in [240..255] then s[i]:=chr(ord(s[i])-16)
else if ord(s[i])=168 then s[i]:=chr(ord(240))
else if ord(s[i])=184 then s[i]:=chr(ord(241));
end;
 
function UpCaseRus(c:char):char;{русские в верхний регистр}
begin
if c in ['а'..'п'] then c:=chr(ord(c)-32)
else if c in ['р'..'я'] then c:=chr(ord(c)-80)
else if c='ё' then c:='Ё';
UpCaseRus:=c;
end;
 
procedure Convert1(var a:string);//перевод из программы в файл{ASCII->ANSI}
var i:integer;
begin
for i:=1 to length(a) do
if ord(a[i]) in [128..175] then a[i]:=chr(ord(a[i])+64)
else if ord(a[i]) in [224..239] then a[i]:=chr(ord(a[i])+16)
else if ord(a[i])=240 then a[i]:=chr(ord(168))
else if ord(a[i])=241 then a[i]:=chr(ord(184));
end;
 
 
var f,g:text;
    s:string;
    i:integer;
begin
clrscr;
assign(f,'F.txt');
reset(f);
assign(g,'G.txt');
rewrite(g);
while not eof(f)do
 begin
  readln(f,s);//читаем построчно
  convert(s);//конвертируем
  for i:=1 to length(s) do//если малая русская буква
  if pos(s[i],alf)>0 then s[i]:=UpCaseRus(s[i]);//переводим в верхний регистр
  convert1(s);//обратно конвертируем
  writeln(g,s);//пишем в новый файл
 end;
close(f);
close(g);
readln
end.

program Zadanie181project1a;
{$codepage utf8}
var
  f: text;
  n: widechar;
begin
  assign(f,'s.txt');
  reset(f);
  while not eof(f) do
    begin
      read(f,n);
      write(n);
    end;
  close(f);
  readln;
end.

program Zadanie181project1b;
{$codepage utf8}
const
  filename1 = 's.txt';
  filename2 = 'z.txt';
const
  m = 'абвгдеёжийклмнопрстуфхцчшщъыьэюя';
  b = 'АБВГДЕЁЖИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var
  f, g: text;
  n: widechar;
begin
  assign(f,filename1);
  reset(f);
  assign(g,filename2);
  rewrite(g);
  writeln('Информация из файла ', filename1,': ');
  while not eof(f) do
    begin
      read(f,n);
      write(n);
      if pos(n,m) > 0 then
        n:= b[pos(n,m)];
      write(g,n);
    end;
  writeln;
  writeln('Информация из файла ', filename2,': ');
  reset(g);
  while not eof(g) do
    begin
      read(g,n);
      write(n);
    end;
  close(f);
  close(g);
  readln;
end.

{$codepage utf8}
uses character;
var
  f1, f2 : text;
  s : widechar;
begin
  assign(f1, 's.txt'); reset(f1);
  assign(f2, 't.txt'); rewrite(f2);
  while not eof(f1) do
  begin
    read(f1, s);
    if tcharacter.islower(s) then s := tcharacter.toupper(s);
    write(f2, s);
    write(s);
  end;
  close(f1); close(f2);
  readln;
end.