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

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]+',';
...

uses System.IO;
begin
  &File.WriteAllText('info.txt',string.Join(',',&File.ReadAllText('info.txt').Split(',').Where((s:string)->FileExists(s)).ToArray()));
end.

&File.WriteAllText('info.txt',string.Join(',',&File.ReadAllText('info.txt').Split(',').Where(FileExists).ToArray()));

{$reference System.Core.dll}
{$reference System.Windows.Forms.dll}
uses System.Linq, System.IO, System.Windows.Forms;
function Check(name : string) : boolean;
begin
  result := FileExists(name) or (MessageBox.Show(name + ' not exists. Keep record?', 
                                 'Caption', MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes)
end;
begin
  &File.WriteAllText('info.txt',string.Join(',',&File.ReadAllText('info.txt').Split(',').Where(Check).ToArray()));
end.