Помогите упростить код

[Ralf_ru]

a[i],b[i],c[l],d[l] : переменные
y[i] : символы найденного имени без пробелов
z[l] : символы введенного имени без пробелов
n,m,k: счетчики

n:=0;
b[0]:=ExtractFileName(CDir);

  For i:=1 to Length(b[0]) do  // находим y[i]
   Begin
   b[i]:=inttostr(Length(b[0])-i);
   a[i]:=b[i-1]-b[i]
    if a[i]<>'пробел' then
        Begin
       y[i]:=a[i];
       n:=n+1                 // длина массива имени y[i] - найденного имени
        end
   end;

m:=0;
c[0]:='Введенное имя'
  For l:=1 to Length(n) do   // находим z[l]
   Begin
   c[l]:=inttostr(Length(c[0])-l);
   d[l]:=c[l-1]-c[i]
     if d[l]<>'пробел' then
         Begin
        z[l]:=d[l];
        m:=m+1               // длина массива имени z[l] - введенного имени 
         end
   end;

k:=0;
  For j:=1 to n do
   Begin
    if z[j]=y[j] then
                  begin
                    if z[j+1]=y[j+1] then k:=k+1
                  end
                 else k:=0
   end;

  If (k-1)=Length(m) 
   then файл найден;

Как можно оптимизировать код?
Подскажите плиз код пробела.
Я этот код ещё не пробовал... может он вообще не рабочий?

[Air]

Подскажите плиз код пробела.

так по моему так и пишется ' ' или код chr(32)

[Stilet]

Ральф, ты можеш на словах обьяснить чего хочешь?

[Ralf_ru]

Отвечаю...
Я хочу сократить код, чтоб быстрее работал, и потреблял меньше переменных...

А вообще код сравнивает 2 имени на наличие схожести.
MatchesMask не хочет работать!

[Stilet]

MatchesMask не хочет работать!

Приведи промер файла с которым он не хочет работать.

[Ralf_ru]

Все файлы - *.txt:
if FindFirst(filename, faAnyFile,SearchRec) = 0 then
repeat
if MatchesMask(searchRec.name,FileName ) then
begin
n := n + 1;
a[n]:=(SearchRec.Name);
end;
until FindNext(SearchRec) <> 0;

Убираю весь Repeat нафиг, оставляя один MatchesMask всеравно выдает ошибку (что с Repeat сто без):
proect.exe raised too many consecutive exceptions : 'access violation at 0x00000000: read of address 0x00000000'. process stoped.

[Stilet]

всеравно выдает ошибку

А цикл тут нипричем. Я помоему тебе уже говорил что скорее всего ты не следиш за размерностью массива "а"

[Ralf_ru]

массив "а" не причем я же говорю, MatchesMask оставил один без всего остального, ошибка опять вылазиет, на нем же... токое ощущение, что он циклется именно при чтении MatchesMask, думает секунды 3.

if FindFirst(filename, faAnyFile,SearchRec) = 0 then
//repeat
if MatchesMask(searchRec.name,FileName ) then
//begin
//n := n + 1;
//a[n]:=(SearchRec.Name);
//end;
until FindNext(SearchRec) <> 0;

типо этого