Witam, czy jest tu ktoś kto mógłby skompilować dla mnie ten program gdyż nie mam pojęcia dlaczego nie mogę tego zrobić ani w Delphi (Nie mam i nie chcę pobierać wersji Trial) ani Turbo Pascal, który mówi że nie zna funkcji assignfile 
program merge;
{$APPTYPE CONSOLE}
var
final, f: file of byte;
buf, q: byte;
begin
if (paramcount < 3) or (paramstr(1) = 'help') then begin
writeln('uzycie: merge.exe <1 plik> <2 plik> <3...> <plik wynikowy>');
readln;
end else begin
assignfile(final, paramstr(paramcount));
rewrite(final);
for q := 1 to paramcount -1 do begin
writeln(paramstr(q));
assignfile(f, paramstr(q));
reset(f);
while not eof(f) do begin
blockread(f, buf, sizeof(buf));
blockwrite(final, buf, sizeof(buf));
end;
closefile(f);
end;
closefile(final);
end;
writeln('-> ' + paramstr(paramcount));
end.