Тип безтипових файлів

1: begin

assign(f, ParamStr(1));

writeln('Задайте ім'я цільового файла');

readln(s); assign(g, s);

end

else

begin

assign(f, ParamStr(1)); assign(g, ParamStr(2));

end

end.