Не учитывать регистр букв

const slov=['Dom','sOm','hfgFDFhg']

var i,j: byte;
const slov: array [1..3] of string=('Dom','sOm','hfgFDFhg');
      sslv: array [1..3] of string=('doM','SOM','lsdknfsd');
begin
for i:=1 to 3 do
    for j:=1 to 3 do
        begin
        write(slov[i],' ',sslv[j],' ');
        writeln(uppercase(slov[i])=uppercase(sslv[j]));
        end;
end.

var i,j: byte;
const slov: array [1..6] of string=('Dom','dOM','SOM','Vlom','sOm','hfgFDFhg');
begin
for i:=1 to 6 do
    for j:=1 to 6 do
        if i<>j then
           begin
           write(slov[i],' ',slov[j],' ');
           writeln(uppercase(slov[i])=uppercase(slov[j]));
           end;
end.

function UpperCase(
   slov: String
):String;
 
begin
   UpperCase(slov);end;
end.

uses crt;
var s,ss: string;
    i: byte;
 
function U (slovo: string): string;
begin
U:=uppercase(slovo);
end;
 
begin
write('s='); readln(s);
s:=s+' ';
ss:='';
for i:=1 to length(s) do
    if s[i]<>' ' then ss:=ss+s[i] else
       begin
       writeln( U (ss));
       ss:='';
       end;
end.

..........
const slov=['Dom','sOm','hfgFDFhg']
..........
for i:=1 to length(slov) do
..........

primer:char

slov

writeln(slov,'  - Такое слово есть в const');

const slov=['Dom','sOm','hfgFDFhg']

      if primer in slov then 
        begin
          writeln(slov,'  - Такое слово есть в const');
          primer:='';
        end

const slov=['DOM','SOM','ROM','HOM','DLKFJ','XLKJVLSJKDHW'];
var primer: string;
 
begin
write('Пример: '); readln(primer);
      if uppercase(primer) in slov then 
        begin
          writeln(primer,'  - Такое слово есть в const');
          primer:='';
        end
end.

i+=10;

i:=i+10;