Очень нужно!! Паскаль текстовые файлы

[kishka_]

Суть программы архиватор
я хочу, чтобы программа архивировала текстовый документ, используя базу данных.
Проблема в том, что программа проверяет 1 строку исходного файла с 1 строкой базы-2 строку исходного файла с 2 строкой базы и т.д.
А мне нужно, чтобы 1 строку исходного файлы проверяла со всеми строками базы-2 строку исходного файла со всеми строками базы и т.д.

uses crt;
var z,t,e:text;
    p:string;
 
 
 
procedure inputt;
var a,b,c,str,strr:string;
n:char;
ind:integer;
begin
assign(t,'c:\PABCWork\baza.txt');
assign(z,'c:\PABCWork\inp.txt');
assign(e,'c:\PABCWork\out.txt');
reset(t);
reset(z);
reset(e);
rewrite(e);
while not eof(t) do{Может быть проблема где-то тут?}
while not eof(z) do
begin
readln(z,str);
readln(t,strr);
 
 
 
n:='-';
ind:=pos(n,strr);
a:=copy(str,1,50);
b:=copy(strr,1,ind-1);
if a=b then begin
c:=copy(strr,ind+1,50);
write(e,c);
end;
 end;
 
close(t);
close(z);
close(e);
end;
 
 
begin
clrscr;
inputt;
readln;
end.

фото примера внизу

[s-andriano]

А можно поинтересоваться, какое количество строк находится в базе и сколько примерно строк содержит текстовый файл?

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

[kishka_]

база может пополняться, так что неизвестно может быть 500 может 1000
и в текстовом файле тоже неизвестно.
время не важно
главное как такой алгоритм сделать?

[Sciv]

Вы правильно нашли проблемное место, если бы воспользовались трассировкой (или включили логику) - то и саму проблему бы нашли

while not eof(t) do begin   {Может быть проблема где-то тут?}
  readln(t,strr);
  reset(z);
  while not eof(z) do begin
    readln(z,str);
    ... 
  end;
  close(z);
end;

[s-andriano]

Ну, если "время не важно", тогда можно и так.
Но, боюсь, это будет подтормаживать даже с такими микроскопическими массивами как 1000 элементов.