Не до конца удаляется название несуществующего файла - PascalABC.NET

Формулировка задачи:

Не до конца удаляет название несуществующего файла. Ну,сделал метку,теперь бесконечно находит несуществующие файлы. Помогите,пожалуйста.

program ss;
label 1;
var Vvod,Strochka,NameOf:string;
b,dlina:array[1..100] of integer;
stroki:array[1..100] of string;
n,g,m,l,Index,DlinaDelete,IndexDelete:integer;
FileText:text;
 
begin
g:=0;
m:=0;
Assign(FileText,('info.txt'));
Reset(FileText);
Read(FileText,Strochka);
closefile(FileText);
for n:= 1 to length(Strochka) do begin
if Strochka[n] = (',') then begin if m = 0 then begin l:=n; m:=1; end; g:=g+1; b[g]:=n+1; end;
end;
for n:= 1 to g do begin
dlina[n]:=b[n+1]-b[n]-1;
stroki[n]:= Copy(Strochka,b[n],dlina[n]);
end;
for n:= 1 to g do 
writeln(stroki[n]);
 
dlina[g+1]:=l-1;
Index:=1;
Stroki[g+1]:=Copy(Strochka,Index,dlina[g+1]);
writeln(Stroki[g+1]);
 
1: for n:= 1 to g+1 do begin
if FileExists(Stroki[n]) = false then begin writeln('Не найдено',Stroki[g],' не найдено'); DlinaDelete:=Length(Stroki[n]+1); IndexDelete:= b[n]; Delete(Strochka,IndexDelete,DlinaDelete);
end;
end;
 
Assign(FileText,('info.txt'));
Rewrite(FileText);
write(FileText,Strochka);
closefile(FileText);
 
for n:= 1 to g+1 do begin
if FileExists(Stroki[n]) = false then goto 1;
end;
end.

Решение задачи: «Не до конца удаляется название несуществующего файла»

Листинг программы

var
  stroki:array of string;
begin
....
  stroki:=Strochka.Split(',').where((s:string)->FileExists(s)).ToArray();
  Strochka:='';
  for i:=0 to length(stroki)-1 do Strochka:=Stroki[i]+',';
...

Объяснение кода листинга программы

В данном коде происходит следующее:

Объявляется переменная stroki типа array of string.
Происходит некоторая неопределенная операция с переменной stroki.
Переменная stroki присваивается новое значение - результат работы метода Split, который разделяет строку Strochka по запятой и удаляет пустые элементы.
Переменная Strochka очищается.
Происходит итерация по элементам массива stroki. На каждом шаге к переменной Strochka добавляется значение текущего элемента массива, отделенное запятой. ...