skusil som to est etakto obklukou:
AssignFile(suborDochadzka,SuborStiahnutaDochadzka);
Reset(suborData);
while not eof(suborData) do
begin
readln(suborData,riadok);
zdrojak.WriteString(riadok);
end;
Close(suborData);
a ani takto to nejde-nenacita to cely subor-subor je pritom spravny.