You could also do:
Program New;
Var
files, files1: TStringArray;
fileswegot: Array[0..10] Of String;
H, O: Integer;
Procedure Downloadfiles;
Begin
For h := 0 To High(files) Do
Begin
fileswegot[h] := GetPage('http://reflectioninclude.googlecode.com/svn/trunk/' + files[h]);
WriteLn(files[h]);
End;
End;
Procedure Copyfiles;
Begin
For h := 0 To High(files) Do
Begin
o := RewriteFile(AppPath + '\Includes\D-Include\' + files[h], False);
WriteFileString(o, fileswegot[h]);
CloseFile(o);
End;
End;
Procedure Downloadfiles1;
Begin
For h := 0 To High(files1) Do
Begin
fileswegot[h] := GetPage('http://reflectioninclude.googlecode.com/svn/trunk/Tools/' + files1[h]);
WriteLn(files[h]);
End;
End;
Procedure Copyfiles1;
Begin
For h := 0 To High(files1) Do
Begin
o := RewriteFile(AppPath + '\Includes\D-Include\Tools\' + files1[h], False);
WriteFileString(o, fileswegot[h]);
CloseFile(o);
End;
End;
Begin
files := ['ReflectionRandoms.scar', 'DInclude.scar','Walking.scar' ];
files1 := ['PathMaker.scar' ];
Downloadfiles;
Copyfiles;
Downloadfiles1;
Copyfiles1;
End.